
Magazine voor 
MSX gebruiker 
en programmeur 

VERSCHIJNT 6 KEER PER JAAR 
FEBRUARI /MAART 1987 


nr. 9 

Fl. 7,95/ Bfr.155 



PR I NTXPRESS 
STARQUAKE HET KAART 
OEVPAC ASSENBLER 






COLOFON 

De MSX-gids is een uitgave van: 
Uitgeverij Herps, 

Postbus 10252, 1001 EG AMSTERDAM 
Tel. 020-32.74.64 

De MSX-gids verschijnt 6 keer per jaar. 
Een abonnement kost Fl. 40- per 6 
nummers en is te verkrijgen door Fl. 40,- 
overte maken op Gironummer: 503601 1 
t.n.v. José Herps te Amsterdam. 

Voor België: Bfr. 750 op Bankrekening- 
nr. 235-0430464-87 bij de Generale 
Bankmaatschappij te Hasselt tn.v. José 
Herps, Postbus 10252, 1001 EG Am- 
sterdam. 

Hoofdredaktie: 

Alfred Debels 
Postbus 10252 
1001 EG Amsterdam 
Tel. 020-32.08.07 

Advertenties: 

José Herps 

Tel. 020-32.74.64 


Verspreider Nederland: 

BETAPRESS, Gilze 

Verspreider België: 

AMP-Brussel 

Uit deze uitgave mag alleen geheel of 
gedeeltelijk worden overgenomen en/of 
vermenigvuldigd, dan na voorafgaande 
schriftelijke toestemming van de uit- 
gever. 

De inhoud van de MSX-gids komt voor 
een groot gedeelte tot stand door in- 
zendingen van de lezers. De aanspra- 
kelijkheid voor auteursrechten voor in- 
gezonden stukken ligt bij deze inzenders. 

SUBSCRIPTION PRICE ABROAD: 

People living outside Holland and Bel- 
gium have to pay DG 55, — a year for 
6 issues. 

Single copies DG 10, — . 

Payments can be made cash by regis- 
tered mail or by int. postal order. 
Bankcheques can not be accepted. 


ISSN 0169-9792 


INHOUD 

LISTINGS 


VOORBEREIDEND ONTLEDEN 3 

ZEELAND PER HELICOPTER 35 

NOORD-BRABANT PER HELICOPTER 37 

LIMBURG PER HELICOPTER 39 

CALCULATOR 53 


PROGRAMMEREN 


GARBAGE COLLECTION 23 

LEER, PROBEER EN PROGRAMMEER (Deel 1) 25 

OMZETTEN CASSETTE PROGRAMMA'S NAAR DISK ... 27 


HARDWARE 


PHILIPS NMS 8250/8255 MSX-2 COMPUTER 42 


SOFTWARE 


PRINT X-PRESS 45 

DEVPAC ASSEMBLER 48 

BRIDGE SPELENDERWIJS 49 

STARQUAKE 50 

SPACE SHUTTLE 52 


DIVERSEN 


AUTO-FIRE KNOP (ZELFBOUW) 31 

UITSLAG ENQUETE 54 

MINI GIDS 56 


1 


VOORWOORD 


DE MSX IN 198*7 

M?Y S Lr^ r ^f2 ge ^ and \ In < - d ® MSX Com P uting van december/ januari lazen we dat de 
MSX markt daar ingestort is. Er komen geen nieuwe computers meer uit en slechte 

o^ el T vrT k r, blijv ? n machines leveren. Van MSX-2 is geeü sprïke meeï 

Ook JVC komt daar met uit met zijn dual-processor MSX-2 computer. Jammer, want 

in Eurona C wP? e on a H en we te wachten. Hopelijk komt deze computer elders 

E ^° p * ! e i °? i e markb ' w ! nt een reis ^ e naar Ja P an er voor mij nog niet 
of’aeiï M?x e ? e cifï eVenS { ? n , dat ls nog veel vervelender) dat uit dit land weinig 

uit g 7 aïa^ S L 2 „ff f ï a re T Za i k 2 me "* We zijn nn geheel aangewezen op de software 
uit Japan en uit Nederland. In Japan is er genoeg, maar er is weinig animo om 
deze software naar Nederland te halen. 

van^e^oïd Wel mee !, m ? ar loopt behoorli j k achter en wil niet echt 

!n ?J k e £' Wel zien we de laatste tijd af en toe een MSX computer onder 

n,H ?L T rpri? n homec °mpnters ronddolen (zie maandelijks een overzicht in de 

in de^ C ?inli<a a v r gSen MSX ï erk heeft Zlch tot nu toe van een regelmatige plaats 
donrhroiron P kunnen verzekeren. Zou in Duitsland de MSX in 1987 kunnen 
doorbreken, dan komt de software ook wel weer, want de markt daar is heel wat 

beSacStigL 1 " ’ ,ederlan,i e ” -" ie " est - *“»«" »e daar daaï «ï, L,“h“ 

da 6 5':Y el nnV S a2 a 2ïv d f Pan ' t ” iar “ el regelmatig naar Spanje. Daar gaat het goed iet 
n?m!? SX ' 0 ° k d f j SX 2 machines zl J n daar al gesignaleerd. Veel hebben we daar 
niet aan, want de apparatuur -ook niet MSX-computers- is in Spanje schreeuwend 
duur (ongeveer de dubbele prijs van hier) en er wordt niet veel softïaïe 
geïmporteerd. Wel is veel goedkope -Spaanse- software vLkïijgbalr? Voor fÏ 

irArtramL' * c Z1;i j blJ d f boekhandel al cassettes verkrijgbaar met allerlei 
programma s. Soms is deze software ook nog in het Duits of Engels te gebruiken 

Via e ^i k6 j Ze 2^I) U ‘ • . Blade ? 2 iJ n er genoeg. Afgelopen vakantie trof ik 4 
verschillende MSX tijdschriften aan, waarvan enkele in een zeer luxe -full 
colour- uitvoering. 

ï!!af« ank i^ k j k0m * k b ^ na no °i t meer. Ik ontmoet daar -om een of andere duistere 
reden- altijd nare en vervelende mensen, zodat ik niet op de hoogte ben van wat 
d ff gebeurt. Er schijnen MSX bladen te zijn. Wie heeft wat meer informatie en 
wie heeft exemplaren van Franse MSX tijdschriften voor mij? (Alleen ter inzage 
je Krijgt ze terug) . 

h?^fi- i nn N w r itY d f Zi:i !? all f v g f n ge 5 icht °P Philips. Zolang deze firma aktief 
ui £ p b ? b ^ SX ?aat het goed met onze computer, de software en dit 

blad. Voorlopig ziet het er goed uit voor 1987 en ook voorzichtige 
voorspellingen voor 1988 zijn gunstig. voorzicntige 


even VOORSTELLEN - - 

ÏHK a ^ e K We - m ^ deW f rkers in dit blad: Arnoud van Delden en Richard Altenburg. 

begint me t , een cursus BASIC en Arnoud gaat ons oefenen in omzetten van 
cassette programma s naar diskette en andere krakerskneepjes. Ook van Arnoud in 
dit nummer een auto vuurknop voor joysticks. In de sof twarerubriek zal José wat 
vaker verschijnen met diverse tests van -vooral- nieuwe games. Ook van haar in 
dit nummer al enkele recensies, waarvan één met een fraaie kaart. 


VERVOLG MACHINETAAL 

Ja, wie gaat dat doen? Er is enorme belangstelling voor machinetaal. Wie wil -en 
d^redactie 6 verder gaan ? Uiteraard tegen vergoeding. Neem even contact op met 


Tot de volgende keer, 
Alf red. 


VOORBEREIDEND ONTLEDEN 


Dit programma bestaat uit 3 delen die een 
vervolg op elkaar zijn maar afzonderlijk 
ook gebruikt kunnen worden. 

In deel 1 moeten zinsdelen in de juiste 
volgorde worden gezet. Bij deel 2 gaat het 
er om zinsdelen weg te laten of zinnen in 
zinsdelen te verdelen. Bij deel 3 moeten 
de 'WIE' -woorden en de 'DOE' -woorden (on- 
derwerp en persoonsvorm) uit een zin 
worden gehaald. In deel 3 zit ook nog een 
spelletje 'getallen raden’. Al deze on- 
derdelen zitten verpakt in een mini- ad- 
venture zodat het voor de kinderen een 
extra stimulans is om door te gaan of om 
een vorig onderdeel te herhalen. Alleen 
bij voldoende juiste antwoorden kan verder 
gespeeld worden. 

HET KONING WIE-DOE AVONTUUR 

De kinderen moeten naar koning WIE-DOE in 
ZINON. Het eerste obstakel is een muur. 
Hier moet een ladder verdiend worden door 
het beantwoorden van de vragen. Vervolgens 
moet een rivier overgestoken worden met 
een vlot en verder zijn er nog een slag- 
boom en een kasteel. In dit kasteel wordt 
dan eindelijk koning WIE-DOE gevonden die 
ook nog een cijferspellet je wil spelen. 
Alles is voorzien van leuke plaatjes en de 
maker (Peter v.d. Aar) is er goed in ge- 
slaagd om een educatief programma van 
spelelementen te voorzien. 

PROGRAMMA BESCHRIJVING 

Voordat de eerste leerling begint, moet de 
leerkracht de volgende gegevens invoeren: 

-Het aantal leerlngen dat met het program- 
ma gaat werken (max. 20) . 

-Het aantal oefeningen dat elke leerling 
moet doen (min. 2 max. 20). 

Hierna wordt gemeld, dat het programma 
eventueel voortijdig kan worden afgebroken 
door -voordat een volgende leerling zou 
beginnen- op funktietoets F6 te drukken. 

Na een druk op SELECT kan de eerste 
leerling beginnen. 

Na de laatste opgave kan via SELECT een 
volgende leerling beginnen. Na de laatste 
leerling (of na onderbreking met 
funktietoets F6) moet de leerkracht het 
codewoord intoetsen. Het codewoord is 
'uitslag' en kan uiteraard in het 
programma gewijzigd worden. De leerkracht 
krijgt nu te zien hoe vaak elk kind 
verbeterd heeft. Desgewenst kan het 
programma opnieuw gestart worden. 

In het geheugen van de computer zitten 40 
oefeningen. Per leerling kunnen er 
maximaal 20 gedaan worden. Bij herhaling 
van het programma is de kans groot dat 
(een deel van) de oefening nieuw zal zijn 
voor het kir" 4 





Let o K* 
komt zin 

1 t r e ci , hier- 
1 

stuk 1 

bescherm $ n 

STUK 2 

het land 

STUK 3 : 

t e ci e n de zee 

STUK 4: 

De d u i n e n 


41231 

T i (< de c 

i jfers in de goede 



Het programma is zeer gebruiksvriendelijk 
en een handleiding is overbodig. 
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Beeldscherm: WIDTH 36 


10 ’ ****************************** 

20 =■* * 

30 ’ * Voorberei dend ontleden * 

40 •’ * * 

50 •’ *======= DEEL 1 =======* 

60 •' * * 

70 * * Door: Peter van der Aar * 

80 ’* * 

90 ' * (c)1987 MSX-Gids Amsterdam * 
100 =“ 

110 ? 

120 GOTO200 

130 C0L0R15, 4,4: SCREEN0: WIDTH37: KEYO 
FF: FORAA=1TÖ10: KEYAA, " " : NEXT: POKE&HF 
BB 1 1 

1 40 ’ Mf = " T230S 1 0M 1 5000L2O3F+G+ A+F+F+G 
+ A+F+ A+B04C+ 1 R 1 603A+B04C+ 1 R32L4C+D+C 
+03BA+2F+2L404C+D+C+03BA+2F+2L2F+C+F 
+1F+C+F+1 " 

150 OPEN’’GRP: " FDRGUTPUT AS# 1 
160 RETURN 
170 •' 

1B0 •’ *** Openingsscherm 
190 ’ 

200 CLEAR2000 : GOSUB 1 30 

210 SCREEN2 : COLOR 14,5,8: PL AYMf 

220 FORA A= 1 0TO50STEP5 : FOR AB= 1 0TO70ST 

EP4: AC=AA-5: AD=AC/2. 5 

230 LINE(AC, AD) -(AD, AC) , 15: LI NE (AA, A 

B) - ( AB, AA) , 15: NEXTAB, AA 

240 FORAA=100TO1 75STÈP15 

250 C I RCLE ( AA , 50 ) ,20, , , , 1.4:PAINT<AA 

,50) , 14: NEXTAA 

260 FORAA= 1 20TO225STEP 1 5 

270 Cl RCLE (AA, 100) ,20,11,, , 1.4:PAINT 

(AA, 100) , 11:NÈXTAA' 

280 FORAA=140TO215STEP15 

290 Cl RCLE (AA, 150) ,20, , , , 1.4:PAINT(A 

A, 150) , 14: NEXTAA 

300 PRESET (110,50): COLOR4 : PR I NT# 1 , " M 
SX-Gids" 

310 PRESET ( 122, 99) : PRINT#1 , "Postbus 
10252" 

320 PRESET ( 1 43 , 1 50 ) : PR I NT# 1 , " Amst er d 
am” 

330 PRESET (10,170): COLOR 1 5 : PR I NT# 1 , " 
Copyr i ght 1 9B6" : FORAA= 1 TO2000 : NEXT 
340 •' 

350 *** Inleiding 

360 ’ 

370 SCREEN0 : CLS : COLOR 15,4,4 
380 PRINT" ** VOORBEREIDEND ONTLEDEN 
(1) **": PRINT: PRINT"Dit is een eers 
te voorberei di ng" : PRINT"op ontleden. 

" : PR INT "De leerlingen moeten zinsdel 
en in de goede volgorde zetten." 

390 PR INT: PR INT: PR INT "Voor dat de eer 
ste leerling begi nt , " : PRINT"moet de 
leerkracht enige gegevens":PRINT"inv 
oer en. 

400 PRINT: PRINT: PR INT "Hoeveel leerli 
ngen gaan er nu" : PRINT"met dit progr 
amma werken?" : PRINTTAB ( 15) ’* (maximaal 
20) " 

4 1 0 DEFUSR 1=342: U=USR 1(0) 

420 L0CATE33, 15: AW=4B: AX=57: AY=2: GOS 
UB 1 970 : I FBf = " " THEN420 
430 B=VAL (Bf ) : IFB< 1ORB>20THEN420 
440 PRINT: PRINT: PRINT"Hoe vaak moet 
ieder kind de" : PRINT”oe-f eni ng doen?" 
:PRINT" (minimaal 2, maximaal 20)" 
450 LOCATE33, 20: GOSUB 1970: IFBf=" "THE 
N450 

460 C=VAL(Bf) : IFC<2ORO20THEN450 
470 CLS: PRINT”EVEN HERHALEN: ": PRINT: 
PRINT 


480 PRINTUSING"Aantal leerlingen ##" 
;B: PRINT 

490 PR I NTUS I NG " De oefening wordt ## 

keer gedaan." ;C 

500 FOR A A= 1 TO 1 000 : NE X T 

510 PRINT: PRINT: PRINT"Klopt dat? (j/ 

n) " 

520 DEFUSR 1 =342 : U=USR 1(0) 

530 AAf=INKEYf 

540 I FAAf= " J " ORAAf = ” j ” THEN570 
550 I F A Af = " N " OR A Af = " n " THEN370 
560 6OTO530 
570 DIMDf (B) , CU (B) 

580 LOCATE0, 15:PRINT"U kunt het prog 
ramma voorti jdi g" : PRINT"af breken doo 
r -voordat een 1 eer 1 i ng" : PRINT"begi n 
t- op -funkti etoets 6 te" : PRINT"drukk 
en. ": PRINT 

590 PRINT: PR INT "Als U nu op SELECT d 
rukt, kan " : PRINT"de eerste leerling 
beginnen. ” 

600 DEFUSR 1 =342 :U=USR1 (0) 

610 A Af = I NKE Yf : I FAAf =CHRf ( 24 ) THEN650 

ELSE610 

620 ’ 

630 * *** Hoofdlus leerling 
640 ? 

650 FORBL=1TOB: SCREEN0: COLOR 1 ,6,4: 
660 LOC ATE4, 10: PRINT "Hoe heet' je?" :L 
0CATE9, 14: PRINT" (maximaal 12 letters 
) " 

670 POKE&HFCAB, &H0: OUT 170, INP(170)OR 
64 

680 DEFUSR 1 =342 : U=USR 1(0) 

690 L0CATE19, 10: GOSUB2060: IFCf=""THE 
N690 

700 AA= ASC ( M I Df ( Cf , 1 , 1 ) ) : I F AA >96 AND A 
A< 1 23THENAA= A A-32 : M I Df ( Cf , 1 , 1 ) =CHRf ( 
AA) 

710 CT=0 

720 CLS : COLOR 1, 11,4: SCREEN2 
730 PLAYMf 

740 G0SUB2 1 50 : PRESET ( 9 , 6 ) : PR I NT# 1 , " D 
ag, "Cf ". ": PRESET (9, 19) : PRINT#1 , " je 
staat voor de stadsmuur ": PRESET (9, 31 
) : PRINT#1 , "van Zinon. ": PRESET (9, 46) 
750 PRINT#l,"Je mag pas naar binnen" 

: PRESET (9, 58) : PRINT#1 , "na het uitvoe 
ren": PRESET (9, 70) :PRINT#1, "van"C"opd 
rachten . " 

760 FORAA= ITO 1000: NEXT 
770 DEFUSR 1=342: U=USR 1(0) 

780 PRESET (50, 175) : PRINT#1 , "Druk op 
SELECT. " 

790 AAf = I NKE Yf : I F AAf =CHRf ( 24 ) THEN800 
ELSE790 

800 CLS : SCREEN0 : COLOR 1 , 5 
810 PRINT"Je moet de Zi nnenhussel aar 
van" : PRINT: PRINT"Zinon helpen, "Cf" 

. " : PR I NT : PR I NT " Er zitten"C"zinhen in 
de knoop . " 

820 PR I NT : PR I NT "Je ziet die zinnen d 
adelijk in": PRINT : PR INT "stukjes. " : PR 
INT: PRINT"Di e stukjes zijn genummerd 
.": PRINT: PRINT" Ji j moet steeds de ci 
j-fers in de" : PRINT: PRINT"goede vol go 
r* d 0 ti i k te ©n . 11 

830 PRINT: PRINT: PRINT"Vergeet niet o 
m daarna op RETURN te" : PRINT: PRINT"d 
rukken ! " 

840 FORAA=1TO500:NEXT 

850 PRINT: PRINTTAB (10) "Druk nu op SE 

LECT. " 

860 DEFUSR 1 =342 : U=USR 1(0) 

870 AAf =INKEYf : AA=RND ( 1 ) : IFAAf =CHRf ( 
24) THENBB0ELSE870 
880 SCREEN 1,1: COLOR 15,1,9 
890 RESTORE2250 
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900 F0RAC=1T04: AG$=" " : F0RAA=1T08: REA 
DAB: AG$=AG*+CHR$ ( AB) : NEXTAA 
910 SPRITE$ (AC) =AG$: NEXTAC 
920 AA=CINT <RND ( 1 ) *6) : I F AA=0THEN920 

930 ONAAGOSUB2320 , 2330 , 2340 , 2350 , 236 
0 ... > 

940 F0RCL=1T0C 

950 CLS : PR I NT " Let op "C$" , hier” :PRI 
NT: PR INT "komt zin"CL 
960 RE ADE A* , EB* , EC* , ED* , EE$ , EF* , EG* 
970 LOC ATE0 , 6 : PR I NT " STUK 1:"EA* 

980 PR INT: PR INT "STUK 2: "EB* 

990 PR INT: PR INT "STUK 3: "EC$ 

1000 IFED*=" "THEN1040 

1010 PR INT: PR INT "STUK 4: "ED* 

1020 I FEE*= " " THEN 1 040 

1030 PR INT: PR INT "STUK 5: ”EE* 

1040 LOCATE0, 21 : PRINT"Ti k de cijfers 
in de goede" : PRINT" vol gorde. " 

1 050 LOCATE 1 0 , 1 7 : PR I NT " , 

. ":PRINTTAB<10> " I 1 |":PRI 

NTTAB ( 10) " * 1" 1 

1060 DEFUSR1=342:U=USR1 (0) 

1070 LOCATE 11, 18: AW=49: AX= (LEN <EF*) + 
48) : AY=LEN<EF*) :GOSUB1970: IFB*=" "THE 
NI 060 

1080 I FLEFT* < B* , 1 ) < >LEFT* < EF* , 1 ) THEN 
AA*="Met de hoofdletter beginnen !":G 
0SUB3 110: GOTO 1 060 

1090 IFLEN<B*XLEN<EF*)THENAA*="Je v 
ergat een stuk je ! " : GOSUB31 10: GOTO106 
0 

1 1 00 I FB*=EF*ORB*=EG*THENGOSUB2830 : N 
EXTCLELSEAA*=" Je vergist je! Goed k 
ijken ! ": G0SUB31 10: GOTO 1060 
1110 I FCT >50RCT >C/ 3THEN 1 120ELSE1 170 
1 1 20 COLOR 1,11,4: CLS : SCREEN2 : G0SUB2 1 
50: PRESET (9, 6) :PRINT#1, "Je hebt"CT"k 
eer": PRESET (9, 16) :PRINt#l, "verbeterd 
, "C*" . " : PRESET (9, 26) : PRINT#1 , "Dat i 
s te veel ! " 

1 1 30 PRESET ( 9 , 60 ) : PR I NT# 1 , " J e kunt n 
u helaas ni et " : PRESET (9, 70) : PRINT#1 , 
"naar binnen." 

1140 FORAA= ITO 1000: NEXT 

1150 PRESET (9, 175) :PRINT#1, "Druk op 

SELECT." 

1 1 60 AA*= I NKEY* : I FAA*=CHR* ( 24 ) THEN 1 5 
40ELSE1 160 

1 1 70 SCREEN0 : COLOR 15,4,4: LOC ATE0 , 3 : P 
RINT"Je hebt de opdrachten tot vólle 
": PRINT: PRINT"tevredenheid van de Zi 
nnenhussel aar " : PRINT : PRINT"van Zi non 
uitgevoerd, "C*". ": PRINT: PRINT 
1180 I FCT =0THENPR I NT "Je hebt je geen 
enkele keer vergi st .": PRINT: PRINT"H 
eel knap, "C*" . " : GOTO1210 
1190 PRINT"Je hebt "CT"keer moeten ":P 
RINT : PR I NT "ver bet er en , "C*” . " 

1200 FQRAA= ITO 1000: NEXT 
1210 PRINT: PRINT: PRINT"Laten we weer 
eens terug gaan naar " : PRINT: PRINT"d 
e stadsmuur. " : L0CATE6, 21 : PR INT "Druk 
op SELECT. " 

1220 DEFUSR1=342:U=ÜSR1 (0) 

1 230 AA*= I NKEY* : I F AA*=CHR* ( 24 ) THEN 1 2 
40ELSE 1 230 

1240 CLS : COLOR 1,11,4: SCREEN2 , 3 : GOSUB 
2150: REST0RE3 160 

1250 PRESET (9,6) : PRINT#1 , "Ki j k , "C*" 

. " : PRESET <9, 19) : PRINT#1 , "Daar komt i 
ets uit de grond." 

1 260 AG*= " " : FORA A= 1 T032 : RE AD AB : AG*=A 
G*+CHR* < AB) : NEXTAA 
1270 SPRITE*<5)=AG* 

1280 PUTSPRITE5, <135, 155) ,2,5 


1 290 AG*= " " : FORAA= 1 T032 : READAB : AG*=A 
G*+CHR* < AB) : NEXTAA 


SPRITE* (6) =AG*: SPRITE* < 7 ) 
PL AYM* : X = 1 40 : Y= 1 55 


1300 
1310 

1320 PUTSPRITE6, <X,Y) , 15,6 

1330 ' 

1340 
1350 
1360 
1370 
eerd , 


=AG* 


Y=Y— . 1: I F Y= 1 25THEN 1 340ELSE 1 320 
X=140:Y=155 
PÜTSPRITE7, <X,Y) , 15,7 
Y=Y— . 1: I F Y=95THEN 1 370ELSE 1 350 
PRESET <9, 40) : F'R I NT # 1 , "Gef el i ci t 


. "C$". "-.PRESET <9,53) :PRINT#1, "H 

et doel is berei kt . ” : PRESET <9, 66) : PR 
INT#1 , "Je kunt nu ZINON i n. ": PRESET < 
50, 79) : PRINT#1 , " Val niet van de ladd 
er ! " 

1 380 DEFUSR 1=342: U=USR 1 < 0 ) 

1390 PRESET <9, 175) :PRINT#1, "Druk op 
SELECT." h 

1400 AA*=INKEY*: IFAA*=CHR* <24) THEN 14 
10ELSE1400 

1410 PUTSPRI TE5, <5, 5) ,0,5: PUTSPRITE6 
, <5, 5) , 0,6: PUTSPRI tE7, <5, 5) , 0, 7: CLS 
1420 SCREEN2 : COLOR 1,7, 1 : CLS 
1430 LINE<0, 191 )- <255, 85) ,2,BF 
1440 CIRCLE <0, 155) , 171 , 2, . 9, 2, . 55: Cl 
RCLE < 255, 155) , 191,2,0,2.49, .65:PAINT 
<100,84) ,2 

1450 L I NÈ < 60 , 106)- <62, 116) , 10,BF:CIR 
CLE < 61 , 100) ,8,3, , , 1.4: PA INT <61 , 100) , 
3 


1460 L I NE < 1 50 , 97 ) — < 1 56 , 122) , 10,BF:CI 
RCLE <154,77) , 23, 3, , , 1 . 4: PAINT <154, 77 

) 5 

1470 L I NE <215, 85 ) — < 2 1 9 , 105) , 10,BF:CI 
RCLE <218, 77), 15, 3, ,,1.4: PA INT <217, 77 
) , 3 

1480 L I NE < 0 , 185) — <255, 165) ,4:LINE<0, 
135) -<255, 120) ,4: PAINT <1,184) ,4 
1490 PRESET <9, 10) : PRINT#! , "Har tel ijk 
welkom in Z INON. " : PRESET <9, 20) : PRIN 
T#1 , "Je gaat nu op zoek naar " : PRESET 
<9,30) : PRINT#1 , "koning WIEDOE. " 

1500 FORAA=1TO1000: NEXT 

1510 PRESET <9, 150) :PRINT#1, "Druk op 

SELECT. " 

1520 DEFUSR 1 =342 : U=USR1 <0) 

1530 AA*=INKEY*: IFAA*=CHR* <24) THEN15 

40ELSE 1 530 

1540 CLS: COLOR 12 

1550 D* < BL ) =C* : CU < BL ) =CT 

1560 FORAA=0TO256STEP4 

1570 LI NE < AA, 0) — <256-AA, 192) 

1580 L I NE < 0 , AA ) — < 255 , 192- AA) : NEXTAA 
1590 L I NE < 0 , 7 ) - < 255 , 17),11,BF:LINE<0 
, 177) — <255, 187) , 1 1 , BF 
1 600 DEFUSR 1 =342 : U=USR 1 < 0 ) 

1610 C0L0R1: PRESET <7, 10) : PRINT#1 , "Ee 
n andere keer gaan we verder .": IFBl = 
BTHENPRESET ( 7 , 1 80 ) : PR I NT# 1 , " Roep j e 
leerkracht . ": PRESET <92,85) :PRINT#1 , " 
Druk op": PRESET <92, 95) :PRINT#1, " SE 
LECT. " : AA$=INKEY$: I FAA$=CHR$ < 24 ) THEN 
1670ELSE1610 

1620 PRESET <7, 180) :PRINT#1, "Je mag n 
Li de volgende roepen. ": PRESET <92, 85) 

: PR I NT# 1 , " Druk op" : PRESET <92, 95) : PR 
I NT# 1 , " SELECT . " : AA*= I NKE Y^ : I FAA$=CH 
R« < 24 ) THENNEXTBLELSE 1 620 
1630 •’ 


1640 ’ *** Einde 
1650 ’ *** LET OP: 

1660 ' 


Het codewoord is 
•’ ui tsl ag * . 


1670 SCREEN0: COLOR 15, 4, 4: LDCATE5, 10: 
PR I NT "Tik het code-woord. " 

1 680 POKE&HFCAB , ?<H0 : OUT 1 70 , I NP < 1 70 ) O 
R64 
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1 69 0 AA*= I NKEY* ! I F AA*= " u " THEN 1 700ELS 
El 690 

1700 COLOR0: L INE INPUT AA*: IFAA*="itsl 
ag " THEN 1 7 1 0ELSE 1 670 

1710 CLS : COLOR 1 5 : W I DTH40 : PR I NT "naam " 
TAB (15) "aantal " : PRINTTAB ( 15) "verbete 
ringen " : PRINT 
1720 FORBL=lTOB 

1730 PR I NTD* ( BL > T AB (17) CU ( BL ) : NEXTBL 

1740 FOR A A= 1 TO 1 000 : NE X T 

1750 L0CATE26, 10: PRINT"****** 

*******" 

1760 LDCATE26 ,11: PR INT"* 

*" 

1770 LOC ATE26, 12: PRINT"* Gezien? 

*" 

17B0 L0CATE26, 13: PRINT"* 

*" 

1790 L0CATE26, 14: PRINT"* Druk dan 

*" 

1 800 L0CATE26 , 1 5 : PR I NT " * 

*" 

1810 L0CATE26, 16: PRINT"* op SELECT 

*" 

1B20 L0CATE26, 17: PRINT"* 

*" 

1830 L0CATE26, 18: PRINT"****** 
****♦**'■ 

1 840 AA*= I NKEY* : I F AA*=CHR* ( 24 ) THEN 1 8 
50ELSE1B40 

1B50 CLS : L0CATE4 , 4 : PR I NT "Wilt u de u 
i tel ag": PR INT: PRINT" nog eens zie 
n? (j/n)" 

1 860 A A*= I NKEY* : I F AA*= " j " ORAA*= "3 "TH 
EN 1 7 1 0ELSE I FAA*= " n " OR AA*= " N " THEN 1 870 
ELSEI 860 

1870 L0CATE4 ,12: PR I NT "Wilt U nog mee 
r kinderen met ": PRINT: PRINT" dit 

programma laten werken? (j/n)" 

1880 DEFUSR1 =342: U=USR1 (0) 

1 890 AA*= I NKEY* : I FAA*= " j " ORAA*= " J " TH 
ENCLE AR2000 : GOSUB130: GOTO370ELSEIFAA 
*= " n " OR A A*= " N " THEN 1 930ELSE 1 B90 
1900 ’ 

1910 ’ *** Reset 

1920 =■ 

1930 DEFUSR=0: F'RINTUSR (0) 

1940 ' 

1950 ' Invoer-rout i ne numeriek 

1960 ’ 

1970 B*=" " : AZ=1 : PRINTSTRING* (AY, 32) S 
TR I NG* ( AY , 29 ) : 

1980 AZ*=ÏNPUT* ( 1 ) : IFAZ*=CHR* ( 13) THE 
NPR I NTSPACE* ( AY-LEN ( B* > ) : RETURNELSE I 
FAZ*=CHR* (8) ORAZ*=CHR* (29) THEN2000 
1 990 I F AZ *< CHR* ( AW ) ORAZ* >CHR* ( AX ) THE 
NI 980 

2000 IFAZ*=CHR* (8) ORAZ*=CHR* (29) THEN 

AZ=AZ— 1 : IFAZ=0THENAZ=1 : GOTOl 9B0ELSEB 

*=LEFT* (B*, AZ-1 ) : PRINTCHR* (29) " "CHR 

*(29) ;: GOTO 1980 

2010 ÏFAZ=AY+1 THEN 1980 

2020 PRINTAZ*; : AZ=AZ+1 : B*=B*+AZ*: GOT 

01980 

2030 ? 

2040 * *%% Invoer-rout i ne naam 
2050 ' 

2060 C*= " " : KEY6, CHR* ( 237 ) : AZ = 1 : PR I NT 
STR I NG* (12, 46 ) ST R I NG* (12, 29 ) ; 

2070 AZ*= INPUT* ( 1 ) : IFAZ*=CHR* (237) TH 
EN1670ELSEIFAZ*=CHR*( 13) THENPRINTSPA 
CE* ( 1 2— LEN ( C* ) ) : RETURNELSE I F AZ*=CHR* 
(8) 0RAZ*=CHR* (29) THEN2090 
2080 IFAZ*<CHR* (32) 0RAZ*>CHR* (32) AND 
AZ*<CHR* (45) 0RAZ*>CHR* (45) ANDAZ*<CHR 
* (65) 0RAZ*>CHR* (90) AND A Z *< CHR* (97) OR 
AZ*>CHR* (122) THEN2070 


2090 IF AZ*=CHR* (8) ORAz*=uHK* (29) THEN 
AZ=AZ-1 : IFAZ=0THENAZ=1 : GOTO2070ELSEC 
*=LEFT* ( C* , AZ - 1 ) : PR I NTCHR* ( 29 ) " . " CHR 
*(29) ; : GOTÖ2070 
2100 ÏFAZ=13THEN2070 

2110 PRINTAZ*; : AZ=AZ+1 : C*=C$+AZ*: GOT 

02070 

2120 •’ 

2130 * *** Muurtje tekenen 
2140 ' 

2150 L I NE ( 0 , 156) -(255, 195) ,2,BF 
2160 LI NE (10, 100) -(245, 155) ,9,BF 
2 1 70 FOR AA= 1 00TO 1 55STEP5 : L I NE ( 1 0 , AA ) 
-(245, AA) : NEXT 
2180 AB= 1 00 : AC= 1 05 

2190 FOR AA= 1 5T0245STEP 1 0 : L I NE < AA , AB ) 
-(AA, AC) :NEXT:AB=AB+10: AC=AC+10: ÏFAB 
> 1 54 t HEN2200ELSE2 1 90 
2200 AB= 1 05 : AC= 110 

2210 FOR AA= 1 0TO240STEP 1 0 : L I NE ( AA , AB ) 
-(AA, AC) : NEXT : AB=AB+10: AC=AC+1@: I FAB 
> 1 45THENRETURNELSE22 1 0 
2220 ’ 

2230 ’ *** Data ’g-o-e-d' 

2240 ’ 

2250 DAT A0 , 0 , 104, 152, 152, 104, B, 112 
2260 DATA0,0, 112, 136, 136, 136, 112,0 
2270 DATA0,0, 112, 136,248, 128, 112,0 
2280 DATAS^e; 104, 152 - , 136, 152, 104,0 
2290 ’ 

2300 * ### Random-restore 
2310 ' 

2320 RESTORE2400: RETURN 
2330 RESTORE2450: RETURN 
2340 RESTORE2500: RETURN 
2350 RESTORE2550: RETURN 
2360 RESTDRE2600: RETURN 
2370 ’ 

2380 ’ Data zinnen 

2390 ’ 

2400 DATArijdt,op de Fiets, De man,,, 
312,312 

2410 DATAkeek,om de hoek, het meisje, 
Ni euwsgi er i g , , 4132, 4132 
2420 DATAte geeuwen, De slaperige kin 
deren, steeds, zitten, ,2431 ,2431 
2430 DATAEr,te wachten , stonden , vi j-f 
kinderen, , 1342, 1242 

2440 DATAzi tten, We, in het school loka 
al , , ,213,213 

2450 DATADaar,de burgemeester , 1 oopt , 

, , 132, 132 

2460 DAT Adi erendag , het , i s, weer , Op 4 
oktober , 5324 1 , 5324 1 

2470 DATAvan aardewer k , hebben , Wi j , ee 
n mei kkan ,, 3214, 3241 

2480 DATAmèt rode oren, 1 ui ster den , na 
ar het verhaal , Wi j ,, 4213, 4231 
2490 DATAIk,naar de borden , goed , keek 
, tijdens het ri jden, 14532, 14325' 

2500 DATAbeschermen, het land, tegen d 
e zee, De dui nen ,, 4123, 4123 
2510 DATAnaar buiten,Èls en Erik, kek 
en, , ,231,231 

2520 DATAheen en weer , z wi epte, i n de 
harde wind, De antennej , 4213, 4231 
2530 DATAnaar de radi o, gaat , Straks, h 
i j , luisteren, 32451 ,32415 
2540 DATADe soldaat, op wacht , stond , b 
ij de poort ,, 1342, 1324 
2550 DATAniet overal , In de duinen, je 
, wandel en , mag, 25314, 25314 
2560 DAT Ar i jdt , naar het stat ion, De m 
achinist,op de fi ets, , 3142, 3124 
2570 DATAde trein, het station in, Pre 
cies op ti jd, ri jdt ,, 3412, 3412 
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2580 DATADe kapi tei n , over de reling, 
kijkt, naar beneden ,, 1324, 1342 
2590 DATAin, Voorzichtig, ze, de houten 
schuur , gingen , 25341 , 25314 
2600 DATA1 oopt , naar de deur, De oude 
man, 1 angzaam, ,3142,3142 
2610 DATAin dè klas, De jongen, z i t , di 
cht bij het bord, , 2314, 2341 
2620 DATAr i jdt , dóór Nederland, De vra 
chtauto,over wegen en bruggen ,, 3124, 
3142 

2630 DATAin de -f abri ek , beki jkt , De di 
recteur,de grote machi nes, , 3214, 3241 
2640 DAtAwij,In de zomer, één wandel i 
ng, maken, door de duinen, 24135, 24153 
2650 DATADe wandelaar , langs het stra 
nd , 1 oopt ,,,132,132 

2660 DAT Averdwi jnen , Met een vaart, ac 
hter de duinen, de kóni jnen , , 21 43, 214 

O 

2670 DATAin de krant, De journalist,e 
en leuk stuk je, schree-f ,, 2431 , 2413 
2680 DATA1 eest , Moeder , de krant, in de 
kamer , alt i jd , 21354, 21453 
2690 DATA1 ees, di kwi jl s, Ik, de krant,, 
3124,3142 

2700 DATAmet zijn buurman, in de auto 
, ri jdt , Vincent , , 4312, 4321 
2710 DATAnaast zijn bed, Vroeg in de 
morgen, de jongen, staat , ,2431,2431 
2720 DATAvan de iucht haven, de passag 
iers,In de wacht kamer , wachten ,, 3142, 
3142' 

2730 DATAHij,uit de koel kast , haal t , d 
e koude 1 i monade, , 1324, 1342 
2740 DATArijdt,ih de piste, De aap, op 
de -fiets, ,3124,3142 
2750 DATA’s avonds, van de dierentemm 
er , droomt , Het blonde mei s je, , 4312, 43 
21 

2760 DAT Amaakt , kl aar , voor de baby,he 
t voedsel , Vader , 51342, 51432 
2770 DATAspeel goed, i s, Er , voor de kin 
deren, ,3241,3214 

2780 DATAde krant , 1 ez en, i n een gemak 
kelijke stoel , Zi j ,, 4213, 4231 
2790 DATAdi erendag!, het , i s, weer , Op 4 
okt ober , 5324 1 , 5324 1 
2B00 ’ 

2810 •' Hu*# Subroutine goed 
2820 ■' 

2830 PL AY "Vil T90LBO5ECO4GO5C . D16C" 
2840 PL AY " S3M466T90LBO5ECO4GO5C . D16C 

II 

2850 PL AY "SI 4M777T90L8O5ECO4GO5C . Dl 6 
C" 

2860 X=255: Y=1 18: AA=4 

2870 I F Y< 1 05ORY > 1 1 8THENAA=- AA 

2880 PUTSPRITE1, (X, Y) . 14, 1 s X=X-4: Y=Y 

- A A : I F X < 60THEN2B90ÉLSÈ2B70 

2890 X=255: Y=1 18: AA=4 

2900 I F Y< 1 05ORY > 1 1 8THEN A A=- AA 

2910 PUTSPRITE2, ( X , Y) , 3, 2: X=X-3: Y=Y- 

AA! IFX<79THEN2920ELSE2900 

2920 X =250 : Y= 1 1 8 : AA=3 

2930 I FY< 1 05ORY > 1 1 8THENAA=-AA 

2940 PUTSPRITE3, ( X , Y) , 9, 3: X=X-2. 5: Y= 

Y-AA: IFX< 100THEN2950ELSÈ2930 

2950 X=238: Y=1 lBs AA=3 

2960 I F Y< 1 05ORY > 1 1 8THENAA=- AA 

2970 PUTSPRITE4, (X , Y) ,7,4: X=X-5: Y=Y— 

AAs IFX< 1 18THEN29B0ÈLSÈ2960 

29B0 F OR A A= 1 T 0500 ; NE X T 

2990 X=62:Y=119 

3000 PUTSPR I TE 1 , ( X , Y ) , 1 4 , 1 ï Y= Y-8 : 1 F Y 
< 0THENPUTSPR I TE 1 , ( X , Y ) , 0 , 1 ELSE3000 
3010 X=79:Y=119 


3020 PUTSPRITE2, < X , Y> , 3, 2: X=X+B: Y=Y+ 
6: I FY > 1 94THENPUTSPR I TÈ2 , (X,Y) ,0,2ELS 
E3020 

3030 X=101 : Y=1 19 

3040 PUTSPRITE3, (X , Y) ,9,3: X=X-6: Y=Y+ 
8: I F Y > 1 94THENPUTSPR I TÈ3 , (X, Y) ,0,3ELS 
E3040 

3050 X=1 19: Y=1 19 

3060 PUTSPR ITE4, < X , Y) ,7,4: X=X-B: Y=Y- 
6: I FX< -5THENPUTSPR ï TE4 , < X , Y> ,0, 4ELSE 
3060 

3070 F ORA A= 1 TO500 : NEXT: RETURN 
3080 ’ 

3090 ' ### Subroutine -fout 
3100 ? 

3110 FOR A A=3T05 : LOCATE0 , AA : PR I NT " 

" : NEXTAA 

3 1 20 CT=CT+ 1 : FOR AA= 1 TO30 : LOC ATE0 , 4 : C 
OLOR 1 , 1 5 , 4 : PR I NTAA$ : LOCATE0 , 3 : PR ï NTS 
TRING$<LÈN<AA*) , "_"> : LOCATE0, 5: PRINT 
STRINGS (LEN ( AA$) , ’— * ) : F0RAB=1T05: NEX 
T: C0L0R15, 1 , 9: F0RAB=1T05: NEXTAB, AA: R 
ETURN 
3130 ' 

3140 * **# Data vlak 8< ladder 

3150 ’ 

3 1 60 DAT A0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 
, 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
3170 DATA0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 
, 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 ' 
3180 DATA18, 18,30, 18, 18,30, 18, 18 
3190 DATA30, 18, 18,30, 18, 18,30, 18 
3200 D AT A0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
3210 DATA0, 0,0, 0,0, 0,0,0 
3220 ’ 

3230 ’ 

3240 Bi Bi H Bi fli BH 
3250 'BH ■■■■■■■■ — 
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10 ’**************************#### 


20 •' * # 
30 •- * Voorbereidend ontleden # 

34 ’ * * 

35 ’*======= DEEL 2 =======# 

40 ' * # 

50 * * Door: Peter van der Aar * 

60 ' * # 
70 ’ * (c)1987 MSX— Gids Amsterdam * 
80 •’ * * 


90 •' ****************************** 
100 GOTO 180 

1 1 0 COLOR 15,4,4: KEYOFF : FORAA= 1 TO 1 0 : K 

NEXT : POKE&HFBB1 , 1 

1 20 MS= " T230S 1 0M 1 5000L2Ö3F+G+A+F+F+G 
+ A+F + A+B04C+ 1 R 1 603 A+B04C+ 1 R32L4C+D+C 
+03BA+2F+2L404C+D+C+03BA+2F+2L2F+C+F 
+1F+C+F+1" 

130 OPEN"GRP: "FOROUTPUTAS#l 
140 RETURN 


150 ' 

160 •’ #** Openingsscherm 
170 * 


1 80 CLfc AR2000 : GOSUB 110 

190 SCREEN2 : COLOR 1 4 , 5 , B : PL A YMS 

200 FORAA= 1 0TO50STEP5 : FORAB= 1 0TO70ST 

EP4: AC=AA-5: AD=AC/2. 5 

210 L I NE < AC , AD ) — < AD , AC ) , 15: LI NE (AA, A 

B)-(AB, AA) , 15: NEXTAB, AA 

220 FORAA=Ï00TO1 75STÈP15 


230 C I RCLE ( AA , 50 ) , 20 , , , , 1 . 4:PAINT (AA 

,50) , 14: NEXTAA 

240 FORAA= 1 20TO225STEP 1 5 

250 Cl RCLE (AA, 100) ,20, 11, , , 1.4:PAINT 

(AA, 100) , 1 1 : NEXTAA 

260 FORAA= 1 40TO2 1 5STEP 1 5 

270 Cl RCLE (AA, 150) ,20, , , , 1.4:PAINT(A 

A, 150) , 14: NEXTAA 


280 PRESET (110,50): COLOR4 : PR I NT# 1 , » M 
SX-Gids" 


290 PRESET (122, 99) : PRINT#1 , "Postbus 
10252" 


300 PRESET ( 1 43 , 1 50 ) : PR I NT# 1 , " Amst er d 
am" 


310 PRESET (10, 170): COLOR 15: PR I NT # 1 , " 
Copyr i gh t 1 987 " : FORAA= 1 TO2000 : NEXT 
320 * 

330 •’ *** Inleiding 
340 =• 


350 SCREEN0 : CLS : COLOR 1 5 , 4 , 4 : W I DTH37 
360 PRINT" ** VOORBEREIDEND ONTLEDE 
N (2) **”: PRINT: PRINT: PRINT"Dit prog 
ramma is een voorberei di ng" : PRINT"op 
ontleden. ":PRINT"De leerlingen doen 
twee soort en": PR INT "oefeningen. " 

370 PRINT: PRINT: PRINT" In de eerste o 
efening moeten" : PRINT"de leerlingen 
zinsdelen aanwi jzen " : PRINT"di e uit e 
en zin mogen worden weg-" : PRINT”gel a 
ten . 

380 F'RINT: PRINT" In de tweede oefenin 
g moeten" : PR INT "de leerlingen zelf z 
innen i n" : PRINT"zi nsdel en verdelen." 
390 PRINT: PRINT"Voordat de eerste le 
er 1 i ng begi nt , " : PRINT"moet de leerkr 
acht enige gegevens" : PR INT "invoer en. 
400 FORA A= 1 TO 1 000 : NE X T : PR I NT : PR I NT " D 
ruk op SELECT." 

410 DEFUSR1=342:U=USR1 (0) 

420 AAS=INKEYS: IFAAS=CHRS (24) THEN430 
ELSE420 

430 PRINTCHRS (12) "Hoeveel leerlingen 
gaan er nu" : F'RINT"met dit programma 
^werken?" : PRINTTAB (15) " (maximaal 20) 


440 L0CATE33, 2: AW=4B: AX=57: AY=2: GOSU 
B2410: IFBS=" " THEN440 
450 B=VAL ( BS ) : I FB< 1 ORB >20THEN440 
460 LOCATE0 , 7 : PR I NT " Hoe vaak moet ie 
der kind":PRINT"oefening 1 (zinsdele 
n" : PRINT"weglaten) doen?" : PRINT" ( 
minimaal 2 , maximaal 20 )" 

470 L0CATE33 ,10: GOSUB24 10:1 FB$= " " THE 
N470 

480 C=VAL (BS) : IFC<2ORC>20THEN470 
490 LOCATE0, 15: PR INT "Hoe vaak moet i 
eder ki nd" : PRINT"oef eni ng 2 (zinnen 
in":PRINT"zinsdelen verdelen) doen'?" 

: F'R I NT " (minimaal 2 , maximaal 20 )" 

500 L0CATE33 ,18: G0SUB24 10:1 FBS= " » THE 
N500 

5 1 0 D=VAL ( BS ) : I FD< 20RD >20THEN500 
520 CLS: PR INT "EVEN HERHALEN: ": PRINT: 
PRINT 

530 PR INTUS ING "Aantal leerlingen ##" 
;B: PRINT 

540 PRINTUSING"Oef eni ng 1 wordt ## 
keer gedaan ." 5 C: PRINT 
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550 PRINTUSING"Oefening 2 wordt ## 

keer gedaan. "; D: PRINT 

560 PRINT: PRINT"Klopt dat? (j/n)" 

570 AA*=INKEY* 

580 I F AA*= " J " ORAA*= “ j "THEN610 
590 I F A A*= " N " DRA A*= " n ” THEN430 
600 GOTO570 

610 DIMD*(B) ,CU(B) ,DU(B) 

620 LOCATE0, Ï5:PRINT"U kunt het prog 
ramma voorti jdi g” : PRINT"af breken doo 
r -voordat een 1 eerl i ng" : PRINT"begi n 
t- op funktietoets 6 te" : PRINT"drukk 

en. PRINT 

630 F0RAA=1 TO1000: NEXT : PRINT: PRINT" A 
ls U nu op SELECT drukt, kan":PRINT" 
de eerste leerling beginnen." 

640 DEFUSR 1=342: U=USR 1(0) 

650 AA*= I NKEY* : I F AA*=CHR* < 24 ) THEN690 
ELSE650 
660 ' 

670 * Hoof dl lis leerling 

680 ’ 

690 FORBL= 1 TOB : SCREEN0 : COLOR 1,6,4: 
700 L0CATE4, 10: PRINT "Hoe heet'jê?":L 
0CATE9, 14: PRINT" (max i maal 12 letters 
) " 

710 POKE&HFCAB , &H0 : OUT 1 70 , I NP ( 1 70 ) OR 
64 

720 DEFUSR 1 =342 : U=USR1 (0) 

730 L0CATE19, 10: GOSUB2500: IFC*=" "THE 
N730 

740 AA=ASC (MID* (C*, 1,1)): IFAA>96ANDA 
A< 1 23THENAA= AA-32 : M I D* ( C* , 1 , 1 ) =CHR* ( 

AA) 

750 CT=0: DT=0 
760 •’ 

770 ' ## Oefening 1 

780 ’ 

790 CLS: L0CATE7, 1 : PRINT"Hal lo, "C*". 

" : LOC ATE0 , 5 : PR I NT " J e bent over de st 
adsmuur gekl ommen" : PRINT: PRINT"en je 
bent nu IN de stad Z INON. ": PRINT: PR 
INT 

800 PRINT" Je wilt naar koning WIEDOE 
. ":PRINT:PRINT”Je moet voor hem een 
zak met zinnen" : PRINT: PRINT"meenemen 

II 

810 LOCATE0, 19: PRINT"Hel aas zijn er 
wat problemen. " : FORAA= ITO 1000: NEXT: P 
RINT: PR INT "Druk op SELECT." 

820 DEFUSR 1 =342 : U=USR 1(0) 

830 AA*= I NKEY* : I F AA*=CHR* ( 24 ) THEN840 
ELSE830 

840 SCREEN2 , 3 : COLOR 1 , 7 , 1 : CLS 
850 PLAYM* : RESTORE2690 : AA*= " " 

860 F OR A A= 1 T 032 : READAB: AA*=AA*+CHR* ( 

AB) : NEXTAA 

870 SPR I TE* ( 1 ) = AA* : SPR I TE* ( 2 ) = AA* 

880 RESTORE2740 : AA*= " " 

890 FOR AA= 1 T032 : READAB : AA*=AA*+CHR* ( 
AB) : NEXTAA 

900 SPR I TE* ( 3 ) = AA* : GOSUB2590 
910 PRESET (9, 10) : PRINT# 1 , "Je moet ov 
er een r i vi er . " : PRESET (9, 20) : PRINT#1 
, "Er is geen brug. Er ligt alleen" 
920 PRESET ( 9, 30 ): PR INT# 1, "een oud en 
gammel vlot." 

930 PUTSPR I TE0 , ( 1 90 , 1 50 ) , 1 0 , 3 

940 X 1 =-30 : Y 1=1 40: X2=— 30: Y2= 1 25 

950 PUTSPR I TE 1, (X1,Y1),1,1 

960 Xl=Xl+.4: Yl=Yl-.02: IFX 1 >B0THEN97 

0ELSE950 

970 PUTSPR ITE2, ( X2, Y2) , 15, 2: IFX2>255 
THEN990 

980 X2=X2+. 8: Y2=Y2-. 01 : GOTO950 

990 PUTSPRITE2, (10, 10) ,0,2 

1000 PUTSPRITEl, (X1,Y1),1,1: IFX 1 >255 

THEN1020 


1010 X1=X1+. 3: Y1=Y1-, 01 : GOTO 1000 
1020 PUTSPRITEl, (10, 10) ,0, 1 
1 030 F0RAA= 1 TO500 : NE X T : COLOR 15,4: SCR 
EEN0 : W I DTH37 : CLS 

1040 LOCATE0 , 2 : PR I NT " Wat jammer nu, 

" C* " . " : PR INT: PR I NT "De zinnen zijn te 
zwaar. ": PRINT: PRINT: PRINT"Het vlot 
dat je mag gebrui ken": PRINT : PRINT "za 
1 zinken. ": PRINT: PRINT 
1050 PR INT "Je moet de zinnen KORTER 
maken . " : PRINT : PRINT"Koni ng WIEDOE wi 
1 wel steeds weten" : PRINT: PRINT"WIE 
of WAT iets DOET." 

1 060 FOR AA= 1 TO 1 000 : NE X T : PR I NT : PR I NT : 
PR INT "Druk op SELECT.” 

1070 DEFUSR 1 =342 : U=USR 1(0) 

1 080 AA*= I NKEY* : AA=RND ( 1 ) : I F A A*=CHR* 
( 24 ) THEN 1 090ELSE 1 080 
1090 CLS : COLOR 1, 12 

1100 AA=CINT (RND ( 1 ) *6) : I F AA=0THEN 110 
0 

1110 ON A AG0SUB28 1 0 , 2820 , 2830 , 2840 , 28 
50 

1120 F0RCL=1T0C 

1 1 30 RE ADE A* , EB* , EC* , ED* , EE* , EF* , EG* 
1140 CLS : PR I NT " z i n " CL : PR ï NT : PR I N t E A* 
1150 LOCATE0 , 7 : PR I NT " Dez e zin moet k 
orter . " : PRINT "Wel k stuk laat je weg? 

I) 

1 1 60 LOC ATE0 , 1 2 : PR I NT " STUK 1 : "EB* 

1170 PR I NT " STUK 2: "EC* 

1180 PR INT "STUK 3: "ED* 

1190 IFEE*="" THEN 1210 
1200 PR INT "STUK 4: "EE* 

1210 LOC ATE0 ,19: PR I NT "Tik het nummer 
van" : PRINT "het zinsdeel ":PRINT"dat 
je weg wilt laten." 

1 220 DEFUSR 1 =342 : U=USR 1(0) 

1 230 I FEE*= " " THENAV=5 1 ELSEAV=52 
1 240 F*= I NKEY* : I FF*< CHR* ( 49 ) ORF* >CHR 
*(AV) THEN 1240 

1250 L0CATE33, 14: PRINTF*: FORAA=1TO10 
0: NEXT 

1 260 I FF*=EF*ORF*=EG*THENGOSUB3320EL 
SEGOSUB3600: GOTO 1 140 
1270 NEXTCL 

1 280 SCREEN2 , 3 : COLOR 1 , 7 , 1 : CLS 
1290 PRESET (9, 10) :PRINT#1, "De zak me 
t zinnen is nü 1 i cht " : PRESET (9, 20) : P 
RINT#1 , "genoeg . Je kunt met het":P 
RESET(9,30) :PRINT#1, "vlot naar de ov 
0r ksnt « ** 

1 300 RESTORE2740 : AA*= " " 

1310 FOR AA= 1 T032 : READAB : AA*=AA*+CHR* 

(AB) : NEXTAA 

1320 SPRITE* (3) =AA* 

1 330 PUTSPR I TE0 , ( 1 90 , 1 50 ) , 1 0 , 3 
1340 6OSUB2590 
1350 X=190:Y=150 

1360 PUTSPR ITE0, (X , Y) , 10, 3: IFX< 174TH 
EN 1380 

1370 X=X-. 03: Y=Y-, 1 : GOTO1360 
1380 F0RAA=1 TO500: NEXT 
1390 ’ 

1400 •’ *** Oefening 2 

1410 ’ 

1 420 COLOR 1 , 5 , 7 : CLS : PUTSPR ITE0, ( X , Y) 
,0,3 

1430 PRESET (9, 10) :PRINT#1, "Je wandel 
t nu verder ": PRESET (9, 20) : PRINT#1 , "d 
oor het rustige stadje ZINON." 

1440 COLOR 15: PRESET ( 9 , 40 ) :PRINT#1, "N 
a een paar kilometer word je" : PRESET 
(9, 50) : PRINTttl , "tegen gehouden door 
een " : PRESET ( 9 , 60 ) : PR I NT# 1 , " sl agboom . 
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1450 C0L0R1 : PRESET (9, B0) : PRINT#1 , "Ee 
n vermoeide ambtenaar vraagt PRESET 
( 9 , 90 ) : PR I NT# 1 , " o-f je hem wilt helpe 
n. ” 

1460 L I NE ( 20 , 130) -(170, 138) , 9, B: FORA 
A-30TO160STEP10: LINE (AA, 130) - (AA, 138 
) , 9: NEXTAA 


iTO 1 65STEP20 : PA I NT ( AA , 1 3 


1470 F0RAA=2ï 
5) ,9: NEXTAA 

1480 FORAA=30TO150STEP20: LINE (AA, 130 
)-(AA+10, 138) , 15, BF: NEXTAA 
1490 LINE (170, 125) -(190, 143) ,6,BF 
1500 LINE <157, 126) -(162, 185)! 10, BF 
1510 FORAA= ITO 1000: NEXT -PRESET <180, 1 
50) : C0L0R15: PRINT#1 , "Druk op": PRESET 
( 1 80 , 1 65 ) : PR I NT# 1 , " SELECT " 

1 520 DEFUSR 1 =342 : Ü=USR 1(0) 

1530 AA$=INKEY$>: IFAA$=CHR$ (24) THEN1 
40ELSE 1 530 
1540 CLS: COLOR1 

1550 LINE (20, 10) -(170, 18) ,9,B:F0RAA= 
30TG160STEP10: LINE (AA, 10) - (AA, 18) ,9: 
NE X T A A 

1560 FDRAA=25TO165STEP20: PAINT (AA, 15 
), 9: NEXTAA 

1 570 FORAA=30TO 1 50STEP20 : L I NE ( AA , 1 0 ) 
-(AA+10, 18) , 15, BF: NEXTAA 
1580 LINE (170, 5) - < 190, 23) , 6, BF 
1590 LINE ( 157,6) - (162, 65) , 10, BF 
1600 PRESET (9, 70) : PRINT#1 , "De ambten 
aar moet morgen" : PRESET (9^80) : PRINT# 
1 , "met "D"z i nnen de rivier over." 

1610 COLOR1 1 : PRESET (9, 95) :PRINT#1, "J 
e weet hoe slecht het vlot is.”:CÓLO 
Rl: PRESET (9, 110) :PRINT#1, "Je moet de 
zinnen voor hem i n ": PRESET <9, 120) : p 
RINT#1 , "zi nsdel en verdelen." 

1 620 COLOR 1 5 : PRESET ( 9 , 135) : PR I NT# 1 , " 
Je ziet dadelijk de z i nnen. ": PRESET ( 
9, 145) :PRINT#l,"Net een pijltje gee-F 
je aan, ": PRESET (9, 155) : PRINT#1 , "waa 
r de zinnen gebroken" : PRESET (9, 165) : 
PR I NT# 1 , " moet en worden." 

1630 FORAA= ITO 1000: NEXT: C0LDR1 : PRESE 
T (120, 175) :PRINT#1, "Druk op SELECT." 
1640 DEFUSR 1 =342 : U=USR 1 (0) 

1 650 AA$= INKEY$: AA=RND ( 1 ) : I FAA$=CHR$ 

( 24 ) THEN 1 660ELSE 1 650 
1 660 COLOR 11,1: SCREEN0 : W I DTH40 
1670 AA=CINT (RND ( 1 ) *6) : I F A A=0THEN 1 67 
0 

1680 ONAAGOSUB3950 , 3960, 3970, 3980, 39 
90 


1690 F0RDL=1T0D: CLS 

1700 READEA$, EB$, EC$, ED$: X=1 

1710 PRINT"De zin die hieronder staa 

t ": PR INT "moet in zinsdelen verdeeld 

worden. ": PR INT: PR INT "Net de stuur toe 

tsen stuur je het » : PRINT"pi j 1 t je naa 

r de •' breek-pl aats ' . " : PRINT 

1720 PR INT "Als het pijltje op de goe 

de pl aats": PRINT: PRINT"staat, moet j 

e op": PRINT: PRINT"de SPATIEBALK druk 

Icsn • 11 

1730 L0CATE2, 1 2: PRI NT " Z i n "DL 

1740 LOCATE0, 13: PRINT" r ": :F0RAA=1T0 

LEN (EA$) : PRINT"-"; : NEXTAA: PRINT" n " 

1 750 PR I NT " I " E A$ " '| " : FOR AB= 1 T02 : PR I 
NT" I" ; : FORAA= 1 TOLEN <EA$) SPRINT" " ; : 
NEXTAA: PRINT" I " : NEXTAB 
1 760 PR INT" L ” ; : FORAA= 1 TOLEN ( EA$ ) : PR 
INT"-" ; : NEXTAA: PRINT"J " 

1770 LÖCATE3, 20: PRINT"Waar is het ee 

rste breekpunt?" : BOSUB1 840 

1780 IFX=VAL (EB$) THENGOSUB4460: G0T01 

790ELSEGOSUB4530 : GOTO 1 770 

1790 L0CATE3 , 20 : PR I NT " Waar is het tw 

eede breekpunt?" ; GOSUB1840 


1 800 IFX=VAL <EC$) THENGOSUB4460: G0T01 

8 1 0ELSEGOSUB4530 : GOTO 1 790 

1810 IFED$="xx "THEN1920 

1820 L0CATE3, 20: PRINT"Waar is het de 

rde breekpunt?" : GOSUB1840 

1830 IFX=VAL <ED*) THENGOSUB4460 : G0T01 

920ELSEGOSUB4530 : GOTO 1820 

1840 IFX< 1THENX=1 

1 850 IFX >LEN ( EA$ > THENX=LEN ( EA$ ) 

1860 LOCATEX, 15: PRINT" : LOCATEX ,16: 
PRINT" I " 

1870 FA*=INKEY$ 

1880 IFFA$=CHR$ (28) THENLOCATEX , 15: PR 
INT" "-.LOCATEX, 16: PRINT" ":X=X+1:G0T 
01840 

1890 IFFA$=CHR*( 29) THENLOCATEX, 15: PR 
INT" ": LOCATEX, 16: PRINT" ":X=X-1:G0T 
01840 

1 900 I FFA$=CHR$ ( 32 ) THENRETURN 
1910 GOTO 1870 
1920 NEXT DL 

1 930 D$ (BL) =C$ : CU ( BL ) =CT : DU ( BL ) =DT 

1940 SCREEN2 : COLOR 1,12,11: CLS 

£950 DRAW " BM 1 28 , 96 " : FOR A A=4T0255STEP 


1960 AB= A AMOD 1 3+2 : AC= ( 1 / 4 ) M0D3 
1970 DRAW "S= AA; C=AB; A= AC ; URDL2UR2DL " 
: NEXTAA 

1980 PRESET (9,7) : PR I NT # 1 , "Je bent kl 
aar, ”C$". ": PRESET (9, 18) :PRINT#1 , "He 
t doel van de reis is i n" : PRESET (9, 2 
9) : PR I NT # 1 , "zicht. " 

1990 PRESEt<9, 100) :PRINT#1, "Via deze 
gang kom je bij het " : PRESÈT (9, 1 10) : 
PRINT#1 , "pal ei s van koning WIEDOE. " 
2000 COLOR 1 5 : PRESET ( 9 , 1 20 ) : PR I NT# 1 , " 
Volgende keer gaan we verder." 

2010 C0L0R1: PRESET (9, 133) : PRINTttl , " I 
k moet je nog vertellen, dat": PRESET 
(9, 143) :PRINT#1, " je in totaal "CT”+"D 
T"="CT+DT"keer": PRESET (9, 153) : PRINT# 
1, "verbeterd hebt." 

2020 FORAA= 1 TO 1 000 : NEXT : DEFUSR 1 =342 : 
U=USR 1 (0) 

2030 I FBL=BTHENC0L0R 1 5 : PRESET (9,167) 

: PRINT#1 , "Roep je 1 eer kracht .": PRESE 
T ( 100, 177) SPRINT# 1, "Druk op SELECT." 
; AA$= I NKEY$: I FAA$=CHR$ ( 24 ) THEN2090EL 
SE 2030 

2040 COLOR 15: PRESET (9, 167) :PRINT#1," 
Je mag de volgende roepen .": PRESET ( 1 
00, 177) -.PRINT# 1, "Druk op SELECT.": AA 
$=INKEY$: IFAA$=CHR$ (24) THENNEXTBLELS 
E2040 
2050 =■ 

2060 ’ **# Einde 

2070 •’ *** LET OP: Het codewoord is 


■’ ui tsl ag K . 

2080 * 

2090 SCREEN0 : COLOR 15,4,4: L0CATE5 , 10: 
PRINT"Tik het code-woord." 

2 1 00 DEFUSR 1 =342 : U=USR 1(0): POKE&HFCA 
B, 8<H0: OUT 170, INP(170)OR64 
2110 AA$=INKEY$: IFAA$="u"THEN2120ELS 
E21 10 

2120 COLOR0 : L I NE I NPUT AA$ : IFAA*="itsl 
ag " THEN2 1 30ELSE2090 

2130 CLS : COLOR 1 5 : W I DTH40 : PR I NT " n aam " 
TAB ( 15) "aantal verbeter i ngen" : PRINTT 
AB ( 1 3 ) " oe-f . 1 "TAB (20) "oef . 2": PRINT 

2140 F0RBL=1T0B 

2150 PR I NTD$ ( BL ) T AB (15) CU ( BL ) T AB ( 22 ) 
DU ( BL ) : NE X TBL : FOR AA= 1 TO 1 000 : NE X T 
2160 L0CATE26, 10: PRINT"*»**** 
*******" 

2170 LOCATE26, 1 1 : PRINT"* 

*" 
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2180 L0CATE26, 12: PRINT"* Gezien 1 ? 

*" 

2 1 90 L0CATE26 , 1 3 : PR I NT " * 

*" 

2200 L0CATE26, 14: PRINT"* Druk dan 

*" 

2210 LOC ATE26, 15: PRINT”* 

*" 

2220 LOC ATE26, 16: PRINT"* op SELECT 

*.. 

2230 L0CATE26 , 1 7 : PR I NT " * 

*" 

2240 L0CATE26 , 1 8 : PR I NT "****♦ * 
*******" 

2250 DEFUSR 1 =342 : U=USR 1(0) 

2260 AA$=INKEY$: IFAA$=CHR$ (24) THEN22 
70ELSE2260 

2270 CLS: L0CATE4, 4: PRINT"Wi 1 t u de u 
itslag": PRINT: PRINT" nog eens zie 
n? (j/n)" 

2280 DEFUSR 1 =342 : U=USR 1(0) 

2290 AA$= I NKEY$ : I F AA$= " j " ORAA$= " J " TH 
EN2 1 30ELSE IFAA$= " n " OR AA$= " N " THEN2300 
ELSE2290 

2300 L0CATE4, 12: PRINT "Wi lt U nog mee 
r kinderen met ” : PRINT: PRINT" dit 
programma laten werken? (j/n)" 

23 1 0 DEFUSR 1 =342 : U=USR 1(0) 

2320 AA$=INKEY$: IFAA$=" j "ORAA$=" J "TH 
ENCLE AR2000 : G0SUB1 1 0 : 6OTO350ELSE I F AA 
$= " n " OR A A$= " N " THEN2360ELSE2320 
2330 ’ 

2340 •' * * * Reset 

2350 • 

2360 DEFUSR=0 : PR I NTUSR ( 0 ) 

2370 •’ 

2380 •' 

2390 ' Invoer-roiitine numeriek 

2400 ’ 

2410 B$=" " : AZ= 1 : PRINTSTRING$ ( AY, 32) S 
TRING$ <AY,29) ; 

2420 AZ $= ï NPUT $ ( 1 ) : I F AZ $=CHR$ ( 1 3 ) THE 
NPR I NTSPACE$ ( AY-LEN ( B$ ) ) : RETURNELSEI 
FAZ$=CHR$ (8) ORAZ$=CHR$ (29) THEN2440 
2430 IFAZ$<CHR$ < AW) ORAZ$>CHR$ < AX ) THE 
N2420 

2440 IFAZ$=CHR$ (8) ORAZ$=CHR$ (29) THEN 

AZ=AZ— 1 : IFAZ=0THENAZ=1 : GOTO2420ELSEB 

$=LEFT$ < B$ , AZ - 1 > : PR I NTCHR$ ( 29 ) " " CHR 

$(29) ; : GDTÖ2420 

2450 ÏFAZ=AY+1 THEN2420 

2460 PRINTAZ$; : AZ=AZ+1 : B$=B$+AZ$: GOT 

02420 

2470 ’ 

2480 ■' Invoer— routi ne naam 

2490 ’ 

2500 C$= " " : KE Y 6 , CHR$ ( 237 ) :AZ=1: PRINT 
STR I NG$ (12, 46 ) STR I NG$ (12, 29 ) ; 

2510 AZ$=INPUT$ ( 1 ) : I FAZ$=CHR$ < 237 ) TH 
EN2090ELSE I F AZ$=CHR$ (13) THENPRINTSPA 
CE$ ( 1 2-LEN ( C$ ) ) : RETURNELSEI F AZ$=CHR$ 
(8) 0RAZ$=CHR$ (29) THEN2530 
2520 IFAZ$<CHR$ (32) ORAZ$>CHR$ (32) AND 
AZ$<CHR$ (45) 0RAZ$>CHR$ (45) ANDAZ$<CHR 
$ (65) 0RAZ$>CHR$ (90) ANDAZ$<CHR$ (97) OR 
AZ$>CHR$ ( 122) THEN2510 
2530 IFAZ$=CHR$ (8) DRAZ$=CHR$ (29) THEN 
AZ=AZ— 1 : IFAZ=0THENAZ=1 : GDT0251 0ELSEC 
$=LEFT$ (C$, AZ-1 ) : PRINTCHR$ (29) ". "CHR 
$(29) ; : GOTÖ2510 
2540 ï F AZ = 1 3THEN25 1 0 

2550 PRINTAZ$; : AZ=AZ+1 : C$=C$+AZ$: GOT 

02510 

2560 ' 

2570 ' Tekenen landschap 

2580 ’ 

2590 L I NE ( 0 , 191) -(255, 85) ,2,BF 


2600 CIRCLE (0, 155) , 1 71 , 2, . 9, 2, . 55: Cl 
RCLE (255, 155) , 191,2,0,2.49, L 65: PAINT 
(100,84) ,2 

2610 L I NÈ ( 60 , 1 06 ) — ( 62 , 116) , 10,BF:CIR 
CLE (61 , 100) ,8,3, , , 1.4: PAINT (61, 100) , 

2620 L I NE ( 1 50 , 97 ) - ( 1 56 , 122) , 10,BF:CI 
RCLE (154, 77) ,23,3, , , 1 . 4: PAINT ( 154, 77 
) , o> 

2630 L I NE <215, 85 ) — ( 2 1 9 , 105) , 10,BF:CI 
RCLE (218, 77) , 15,3, , , 1 . 4: PAINT (217, 77 
) , 

2640 L I NE ( 0 , IBS) -(255, 165) , 4: LINE (0, 
135) -<255, 120) , 4: PAINT ( 1 , 184) ,4 
2650 RETURN 
2660 J 

2670 ■’ ### Data bootje (s) en vlot 
2680 ’ 

2690 DATA8,4,2,0, 1,1, 1,57 
2700 D AT A57 , 57 ', 255 ,213,127,63,31,0 
2710 DATA0, 0,0,0, 128, 128, 128, 128' 
2720 DATA 128,128, 255 , 86 , 252 ,248,240, 
0 

2730 ’ 

2740 DATA3, 2, 3, 2, 2, 2, 2, 2 
2750 DATA3, 3,31, 127,255,254,0,0 
2760 DATA 192, 192, 192,0,0,0,31,255 
2770 DAT A255 , 254 , 248 !, 224 , 1 28 , 0 , 0 , 0 
2780 - 

2790 ’ Random— reet ore oefening 1 

2800 ’ 

28 1 0 RESTORE2890 : RETURN 
2820 RESTORE2940: RETURN 
2830 RESTORE2990: RETURN 
2840 RESTORE3040: RETURN 
2850 RESTORE3090: RETURN 
2860 ’ 

2870 •' Data zinnen oefening 1 

2880 =• 

2890 DATADe man rijdt op de fiets, de 
man, rijdt, op de fiets, ,3,3 
2900 DATANi euwsgi er i g keek het meisj 
e om de hoek , ni euwsgi er i g, keek , het 

meisje, om de hoek, 1,4 
2910 DATADe lieve kinderen zitten op 
hun stoel, de lieve kinderen,zi 

tten,op hun stoel,, 3, 3 
2920 DATAOp schooi lezen we iedere d 
ag,op school , 1 ez en , we, i edere dag, 1,4 
2930 DATAWe zitten in een nieuwe bus 
, we, z i tten , i n een nieuwe bus, ,3,3 
2940 DATADaar loopt de burgemeester , 
daar , 1 oopt , de burgemeester ,,1,1 
2950 DATALangzaam fietst dé leuke jo 
ngen naar hui s, 1 angzaam, f i etst , de le 
uke jongen, naar huis, 1,4 
2960 DATAWij hebben een antieke kast 
, Wi j , hebben, een antieke kast,, 3, 3 
2970 DATAMet rode oortjes luisterden 
ze naar mü , Net rode oortjes, lui ste 
rden,ze,naar mü,l,4 

2980 DATATijdens de rit kijk ik naar 
de borden, ti jdens de r i t , ki jk , i k , na 
ar de borden, 1,4 

2990 DATADe duinen beschermen het la 
nd tegen de zee, de dui nen , bescherme 
n,het land, tegen de zee, 3, 4 
3000 DATAEÏs en Erik keken naar buit 
en, Els en Er i k , keken , naar bui ten,, 3, 

3010 DATADe antenne waaide in de har 
de wind omlaag, De antenne, waai de, i 
n de harde wi nd, oml aag , 3, 4 
3020 DATAMorgen luisteren we naar de 
radi o, morgen, 1 ui steren, we, naar de r 
adi o, 1,4 


ii 


3030 DATADe soldaat stond op wacht b 
ij de poort, de sol daat , stond, op 

wacht, bij de poort, 3, 4 
3040 DATAVandaag lust ik een lekker 
dropje, vandaag, lust, ik, een lekker dr 
op j e , 1,4 

3050 DATADe machinist rijdt op de fi 
ets naar huis, de machi ni st , r i jdt , op 
de -fiets, naar huis, 3, 4 
3060 DATAÖp tijd rijdt de trein het 
station in, Op ti jd,ri jdt, de trein, he 
t station in, 1,4 

3070 DATADe kapitein kijkt over de r 
eling naarzee,de kapi tei n, ki jkt , over 
de reling, naar zee, 3, 4 
3080 DATAVoorz i cht i g gingen ze naar 
binnen, voorzichtig, gingen, ze, naar bi 
nnen ,1,4 

3090 DATADe oude man loopt langzaam 
naar de deur, de oude man , 1 oopt , 1 an 
gzaam,naar de deur, 3, 4 
3100 DATAIn de klas zit die jongen v 
lak bij mij, in de klas, zit, die jon 
gen, vlak bij mi j , 1 , 4 

3110 DATADe vrachtauto rijdt over br 
uggen en wegen, de vrachtauto, ri jdt, 
over bruggen en wegen,, 3, 3 
3120 DATAIn de fabriek praat de dire 
cteur met mij, in de f abri ek , praat , de 
di recteur , met mi j , 1 , 4 
3130 DATAIn de zomer zitten we in de 
zon, in de zomer , z i tten , we, i n de zon 

j 

3140 DATADe wandelaar loopt langs he 
t strand, de wandel aar , 1 oopt , 1 angs he 
t strand, ,3,3 

3150 DATAMet een vaart verdween het 
konijn in het hol, met een vaart, verd 
ween, het konijn, in het hol, 1,4 
3160 DATAIn de krant staat een leuk 
artikel, in de kr ant , staat , een leuk a 
rt i kei ,,1,1 

3170 DATANa het eten leest moeder de 
krant,na het eten , 1 eest , moeder , de k 
rant ,1,4 

3180 DATA Ik kijk vanavond naar het n 
ieuws, ik, ki jk, vanavond, naar het nieu 

W5, 3, 4 

3190 DATAMet zijn buurman fietst Mar 
k naar huis, met zijn buurman, f iet 

st, Mark, naar huis, 1,4 

3200 DATAHet meisje staat * s ochtend 
s in de kou, het mei s je, staat , ’ s oc 

htends,in de kou, 3, 4 

3210 DATAIn de wachtkamer wachten de 
patiënten, in de wacht kamer , wachten, 
de patiënten, ,1,1 

3220 DATAHij haalt de limonade uit d 
e koel kast , hi j , haal t , de limonade, uit 
de koel kast, 3, 4 

3230 DATAOp een fietsje rijdt de aap 
in de piste, op een fi etsje, ri jdt 
,de aap, in de piste, 1,4 
3240 DATAHet meisje droomt ’s nachts 
van de leeuw, het mei s je, droomt , 7 s 
nachts, van de i eeuw, 3, 4 
3250 DATAVader geeft de baby een sch 
one 1 ui er , vader , geef t , de baby, een sc 
hone lui er, 3, 4 

3260 DATAMet plezier spelen de kinde 
ren met ’tspel,met pl ez i er , spel en , de 
kinderen, met ’t spel, 1,4 
3270 DATAZij zit in een' mooie stoel, 
Zij, zit, in een mooie stoel,, 3, 3 
3280 DATADe man rijdt op dé fiets, de 
man, rijdt, op de fiets, ,3,3 
3290 ’ 


3300 

3310 

3320 

3330 

3340 

3350 

3360 


Subroutine goed oef. 1 


DEFUSR= 144: U=USR ( 0 ) 

PL AY " T250S9M2000D5G8A4G8E4DDC " 
CLS 

PRINT"Goed gedaan, "C$ 

PRINT: PRINT"De zin was: ": PRINT: 
PRINTEA* 

3370 LOC ATE0 , 7 : PR I NT "Je hebt de zin 
nu zo gemaakt PRINT 
3380 IFEE$=""THENS=1ELSES=2 

IFF$=" 1 ” THENFG$=EC$ELSEFG$=EB$ 


3390 

3400 

3410 

3420 

3430 


AA=ASC<MID$ <FG*, 1 . 1 ) > 


I F AA >96ANDAA< 1 23THENAA=AA-32 
MID*<FG*, 1, 1)=CHR$<AA) 

IFF$=" 1 " THENPR INTFG$" "ED$" "EE 
PRI NTSTR I NG$ < LEN ( FG* ) +LEN ( ED$ ) +LEN 
<EE*)+S, 195) 

3440 I FF$= " 2 " THENPR I NTFG$ " "ED$" "EE 
$ : PR I NTSTR I N6$ ( LEN ( FGÜ» ) +LEN ( ED* ) +LEN 
<EE$)+S, 195) 

3450 I FF$= " 3 " THENPR I NTFG$ " "EC$" "EE 
* : PR I NTSTR I NG$ ( LEN ( FG$ ) +LEN < EC$ ) +LEN 
<EE*)+S, 195) 

3460 I FF $= " 4 " THENPR I NTFG$ " "EC$" "ED 
$: PRI NTSTR I NG$ ( LEN ( FG$ > +LEN ( EC$ ) +LEN 
<ED$)+S, 195) 

3470 LOCATE0, 1 4 

3480 PRINT" ■ ■ BI ■ ■ Wm 


3490 PRINT" 

■ ■" 

3500 PRINT" 

■ ■” 

3510 PRINT" 

■ ■" 

3520 PRINT" 


3530 PRINT" 


3540 PRINT: PRINT"Druk op een toets." 
3550 AA$=INKEY*: IFAA$=" "THEN3550ELSE 


RETURN 
3560 


3570 ' 

3580 * Subroutine fout oef. 1 

3590 - 

3600 DEFUSR=144:U=USR(0) 

3610 FORAA= 1 T075 : S0UND7 , 63 
3620 S0UND6, 25 
3630 SOUNDS, 17 
3640 SOUND 11,34 
3650 SOUND 12, 45 
3660 S0UND13il 
3670 S0UND7, 56 
3680 NEXTAA 
3690 CLS: CT=CT+1 
3700 PRINT" 

■" 

3710 PRINT" 

1} 

3720 PRINT" 

II 

3730 PRINT" 

II 

3740 PRINT" 

II 

3750 PRINT" 

■" 

3760 PRINT: PRINT"De zin was:": PRINT: 
PRINTEA* 

3770 LOCATE0 ,12: PR I NT "Je hebt de zin 
nu zo gemaakt :": PRINT 
3780 IFEES=” "THENS=1ELSES=2 
3790 I FF$= " 1 " THENFG$=EC$ELSEFG«=EB* 
3800 AA=ASC<MID$(FG$, 1, 1) ) 

3810 IFAA>96ANDAA< 123THENAA=AA— 32 
3820 MID$ (FG$, 1,1) =CHR$ (AA) 
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3830 IFF$=" 1 "THENPRINTFG$" "ED$ " "EE 
$ : PR I NTSTR I NG* ( LEN < FG* ) +LEN ( ED$ ) +LEN 
(EE$) +S, 195) 

3840 I FF$= " 2 " THENPR I NTFG$ " "ED$" **EE 
$ : PR I NTSTR I NG* ( LEN ( FGS ) +LEN ( ED* ) +LEN 
(EE*)+S, 195) 

3850 I FF*= " 3" THENPR INTFG*" "EC*" "EE 
* : PR I NTSTR I NG* ( LEN < FG* ) +LEN (EC*) +LEN 
<EE*)+S,195> 

3860 I FF*= " 4 " THENPR I NTFG* " "EC*" "ED 
$ 5 PR I NTSTR I NG* (LEN (FG*) +LEN (EC*) +LEN 
(ED*)+S, 195) 

3870 PRINT: PRINT "Koning WIEDOE wi 1 a 
ltijd wet en " : PR I NT " W I E (of WAT) iets 
DOET. " 

3880 PRINT: PRINT"We proberen het opn 
1 euw. " 

3890 FORAA= ITO 1000: NEXT: DEFUSR 1=342: 
U=USR 1 (0) 

3900 PRINT: PRINT"Druk op een toets. " 
3910 AA*=INKEY*: IFAA*=" "THEN391 0ELSE 
RETURN 
3920 ’ 

3930 ’ ### Randoro- restore oefeninq 2 

3940 ' 

3950 RESTORE4030: RETURN 
3960 RESTORE4080: RETURN 
3970 REST0RE4 1 30 : RETURN 
3980 REST0RE4 1 80 : RETURN 
3990 RESTORE4230: RETURN 
4000 ’ 

4010 ’ ### Data zinnen oefening 2 
4020 ’ 

4030 DATADe man fietst op een oude f 
iets, 7, 14, xx 

4040 DATADeze week hebben we twee fe 
esten, 10,17,20 

4050 DATADe soldaat stond bij de poo 
rt, 1 1 , 17, xx 

4060 DATAIn de auto reden we naar mi 
jn oma, 11, 17,20 

4070 DATALinda stond voor het raam, 6 
,12, xx 

4080 DATADe wandel aar loopt op het s 
trand, 13, 19,xx 

4090 DATAOpeens hoorden ze een harde 
klap, 7, 15, 18 

4100 DATADe auto reed met een hoge s 
nel hei d, 8, 13, xx 

4110 DATAWe iuisterden met aandacht 
naar hem, 3, 14,27 

4120 DATADe gezelligste maand is dec 
ember , 21 , 24, xx 

4130 DATADe jager schiet met zijn ge 
weer ,9, 16, xx 

4140 DATAIn oktober gaan wij naar mi 
jn tante, 1 1 , 16, 20 

4150 DAT Alk rij op de fiets naar de 
kapper ,3,7, 19 

4160 DATADe papieren liggen in de ka 
st , 12, 1 9 , x x 

4170 DATADe kapitein kijkt over de r 
eling, 12, 18, xx 

4180 DATA Ik lees de krant,3,8,xx 
4190 DATAIk teken een schelp in mijn 
schrift ,3, 9, 20 

4200 DATAIn de sneeuw ligt een takje 
, 13, 18, xx 

4210 DATAMoeder vond op zolder oude 
foto’s, 7, 12,22 

4220 DATAMark en Frank timmeren een 
hokje, 14, 23, xx 

4230 DATADe reizigers stappen in de 
trein, 13, 21 , xx 

4240 DATADe mensen zitten op het ter 
ras, 10, 17, xx 

4250 DATAWe gaan met de auto naar hu 
is, 3, 8, 20 


4260 DATAHi j haalt de limonade uit d 
e kast, 4, 10,22 

4270 DATADe aap rijdt op de fiets, 7, 

13, xx 

4280 DATAPiet loopt met Hans naar hu 
is, 5, 11,20 

4290 DATAZij zitten in de kamer aan 
tafel ,4,11,23 

4->00 DATALangzaam loopt hij naar hui 
s,9, 15, 19 

4310 DATAHi j strooide brood voor de 
vogel s, 4, 13, 19 

4320 DATAMorgen gaan we op vakantie, 
7^12, 15 

4->v>0 DATAIk geef mijn hond een vette 
kluif ,3,8, 18 

4340 DATA Ieder jaar vieren we een fe 
est ,11,18,21 

4350 DATAÜrenl ang stonden we in de r 
ij, 9, 17,20 

4360 DATAHi j zat bedroefd op de rode 
stoel ,4,8,17 

4370 DATADe groenteman gaf de sla aa 
n mi j , 14, 18, 25 

4380 DATAZij werken ver weg in de zo 
n, 4, 11, 19 

4390 DATAWe liepen die dag door het 
park, 3, 10, 18 

4400 DATADie handdoek is nat, 13, 16, x 

x 

4410 DATAStrompel end kwamen we thuis 
5 1 2 , 19, 22 

4420 DATADat bureau is heel erg mooi 
, 1 1 , 14, xx 
4430 ’ ' 

4440 ’ ### subroutine goed oef. 2 

4450 ’ 

4460 DEFUSR= 1 44 : U=USR ( 0 ) 

4470 PL AY " V8S 1 M9000T250L4O5F+F+8E2R8 
EEBD2R8R4" 

4480 LOCATEX, 1 4: PRINT" / ” : LOCATE0, 19: 
F0RAA=1TD3: PRINT"GOED GOED PRIMA 
GOED GOED" : NEXT: FORAA= ITO 1500: NE 
XT : LOCATE0, 19: F0RAA=1T03: PRINT" 

" : NEXT 

4490 DEFUSR 1=342: U=USR1 (0) : RETURN 
4500 ’ 

4510 ’ ### subroutine fout oef. 2 
4520 ’ 

4530 DEFUSR= 1 44 : U=USR ( 0 ) 

4540 DT=DT+1 

4550 SOUND8 ,13: SOUNDS ,11: S0UND8 , 1 3 
4560 FORAA=90TO1 80 
4570 SOUND0 , AA 
4580 NEXTAA’ 

4590 S0UND7 ,31: S0UND9 , 0 : SOUND 10,16 
4600 SOUND 10,16: SOUND 12,20: SOUND 13,0 
4610 LOCATE0 ,19: COLOR 1 5 , 4 : PR I NT " FOÜT 
FOUT FOUT FOUT' FOUT": PR IN 

T" 

": PR INT "Probeer het opni euw" : FORAA= 
ITO 1500: NEXT 

4620 LOC ATE0 ,19: FORAA= 1 T03 : PR I NT " 

" : NE 

XTAA: COLOR 1 1 , 1 

4630 DEFUSR 1 =342 : U=USR 1(0): RETURN 
4640 ’ 

4650 ’ 

4660 ’********** 

M i ♦ ♦ 
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******##********############## 
* * 

* Voorbereidend ontleden # 

ft $ 

*======= DEEL 3 =======* 


* 

* 

* 

* 

* 


Door: Peter van der Aar 

<c)19B7 MSX— Gids Amsterdam 


* 

* 

* 

* 

* 


***** 4c**##***##***#*##*****##* 
100 6OTO1B0 

1 1 0 COLOR 15,4,4: KEYOFF : SCREEN0 : W I DTH 
37 : FDRAA= 1 TÖ 1 0 : KE Y AA , " " : NEXT : POKE&HF 
BB1 , 1 
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1 20 M$= " T230S 1 0M 1 5000L2O3F+G+ A+F+F+G 
+ A+F+ A+B04C+ 1 R 1 603A+B04C+ 1 R32L4C+D+C 
+03BA+2F+2L404C+D+C+03BA+2F+2L2F+C+F 
+1F+C+F+1 " 

130 OPEN" GRP: " FGROUTPUT AS# 1 
140 RETURN 
150 ’ 

160 ’ ### Openingsscherm 
170 ’ 

1 80 CLEAR2000: GOSUB 1 1 0 

190 SCREEN2 : COLOR 14,5,8: PL A YM$ 

200 FORAA= 1 0TO50STEP5 : FORAB= 1 0TO70ST 
EP4: AC=AA-5: AD=AC/2. 5 

210 L I NE ( AC , AD ) - ( AD , AC ) , 15: LI NE (AA, A 

B ) — ( AB , AA ) , 15: NE X TAB, AA 

220 FORAA=100TO175STÈP15 

230 C I RCLE ( AA , 50 ) ,20, , , , 1 .4:PAINT (AA 

,50) , 14: NEXTAA 

240 FORAA= 1 20TO225STEP 1 5 

250 Cl RCLE (AA, 100) ,20, 11,, , 1.4:PAINT 

(AA, 100) , 11: NÈXTAA 

260' FORAA= 1 40TO2 1 5STEP 1 5 

270 Cl RCLE (AA, 150) ,20, , , , 1.4:PAINT(A 

A, 150) , 14: NEXTAA 

280 PRESET (110,50): C0L0R4 : PR I NT# 1 , " N 
SX Gids" 

290 PRESET (122, 99) :PRINT#1, "Postbus 
10252" 

300 PRESET (143, 150) :PRINT#1, "Amsterd 
am" 

310 PRESET (10, 170) : COLOR 15: PR I NT # 1 , " 
Copyr i ght 1 987 " : FORAA= 1 TO2000 : NEXT 
320 ’ 

330 ’ ### Inleiding 

340 ’ 

350 SCREEN0 : CLS : COLOR 1 5 , 4 , 4 : W I DTH37 
360 PRINT" ** VOORBEREIDEND ONTLEDE 
N (3) ##": PRINT: PRINT: PRINT"Dit prog 

ramma is het laatste in een":PRINT"s 
erie voorbereidend ontl eden-" : PRINT" 
programma’ s. " 

370 PRINT: PRINT"De (drie) programma’ 
s horen bi j ” : PRINT"el kaar , maar zijn 
ook apart te" : PRINT"gebrui ken . " 

380 LOCATE0, 13: PRINT" In dit programm 
a moeten de" : PRINT"1 eerl i ngen het ’W 
IE'- en het": PR INT"’ DOE '-woord uit e 
en zin halen. 

390 PRINT: PRINT"Voordat de eerste le 
erling begi nt. , " : PR INT "moet de leerkr 
acht enige gegevens" : PRINT"i nvoeren. 
400 FOR A A= 1 TO 1 000 : NE X T : PR I NT : PR I NTT A 
B ( 10) "Druk op SELECT." 

4 1 0 DEFUSR 1 =342 : U=USR 1(0) 

420 AA*= I NKEY* : I FAA$=CHR$ ( 24 ) THEN430 
ELSE420 

430 PRINTCHR$ (12) "Hoeveel leerlingen 
gaan er nu" : PRINT"met dit programma 
wer k en 7 " : PR I NTT AB (15) " (maximaal 20) 

I! 

440 L0CATE33 , 2 : GOSUB 1 840 : I FB*= " " THEN 
440 

450 B=V AL ( B$ ) : IFB< 1ORB>20THEN440 
460 LOCATE0 , 7 : PR I NT " Hoe vaak moet ie 
der ki nd" : PRINT"de oefening doen?":P 
RINT” (minimaal 2, maximaal 20)" 
470 L0CATE33, 9: GOSUB 1840: IFB*=""THEN 
470 

480 C= VAL ( B$ ) : I FC< 20RC >20THEN470 
490 CLS: PR INT "EVEN HERHALEN: PRINT : 
PRINT 

500 PR INTUS ING "Aantal leerlingen: ## 
";B: PRINT 

510 PR I NTUS I NG " De oe-fening wordt ## 
keer gedaan ."; Cs PRINT 
520 PRINT : PR INT "KI opt dat? (j/n)" 

530 AA$=INKEY* 

540 1 F A A$= " J " OR A A$= " j "THEN570 


550 I FAA$= " N " ORAA$= " n " THEN430 
560 6OTO530 

570 DIMD*(B) , CU ( B ) ,CV(B) ,GG(10) 

580 LOCATE0, 15:PRINT"U kunt het prog 
ramma voort i jdi g" : PRINT"a-f breken doo 
r -voordat een 1 eer 1 i ng " : PRINT"begi n 
t- op -funktietoets 6 te" : PRINT"drukk 

en . : PR I NT 

590 FOR A A= 1 TO 1 000 : NE X T : PR I NT : PR I NT " A 
Is U nu op SELECT drukt, kan": PRINT" 
de eerste leerling beginnen." 

600 DEFUSR 1 =342 : U=USR 1(0) 

6 1 0 AA$= I NKE Y$ : I FAA$=CHR$ ( 24 ) THEN650 
ELSE610 
620 ’ 

630 ’ **# Hoof dl us leerling 

640 ’ 

650 FORBL= 1 TOB : SCREEN0 : W I DTH37 : COLOR 
1,6,4: 

660 L0CATE4 ,10: PR I NT " Hoe heet je?":L 
0CATE9, 14: PRINT" (maximaal 12 letters 
) " 

670 POKE&HFCAB , &H0 : OUT 1 70 , I NP ( 1 70 ) OR 
64 

680 DEFUSR 1 =342 :U=USR1 (0) 

690 LOCATE 19,10: GOSUB 1 930 : I FC*= " " THE 
N690 

700 AA=ASC <MID$ <C«, 1 , 1 ) ) s IFAA>96ANDA 
A< 1 23THENAA= AA-32 : M I D$ ( C$ , 1 , 1 ) =CHR$ ( 
AA ) 

710 CS=0 : CT =0 : HB= 1 

720 CLS: C0L0R15, 4,4: PR INT "Dag , "C$". 
" : LOCATE0 , 5 : PR I NT "Je bent nu in de s 
tad Z i n on . " : PR I NT : PR I NT "Na het uitvo 
eren van een aantal ": PRINT: PRINT"opd 
rachten en een wandeling door" : PRINT 
730 PRINT"een lange gang, sta je nu 
voor het " : PRINT: PR INT “pal ei s van kon 
ing WIEDOE." 

740 FOR A A= 1 TO 1 000 : NE X T : DEFUSR 1 =342 : U 
=USR1 (0) 

750 FOR A A= 1 TO 1 00 : LOCATE 1 3 , 2 1 : PR I NT " D 
ruk op SELECT. " : AA$=INKEY$: AA=RND < 1 ) 

: IFAA$=CHR$ (24) THEN770ELSENEXTAA 
760 LOCATE 13, 21: PR INT" 

" : FOR A A= 1 TO500 : NE X T : GOTO750 
770 CLS: COLOR, 11,11: SCREEN2: GOSUB202 
0 

780 L I NE ( 90 , 170) —(110, 150) , 15,BF:PRE 
SET (85,150): DRAW " C 1 0E 1 5F 1 5L30 " : P A I NT 
(100, 149) , 1 0 : L I NE ( 1 00 , 151) -(100, 170) 

, 4 : CÓLOR4 : PSET (98,160): PSET (102,1 60 ) 

: PSET (98, 159) : PSEt (102, 159) ’deur die 
ht 

790 COLOR 1 : PRESET ( 9 , 0 ) : PR I NT# 1 , " Di t 
i s het pal ei s. " 

800 PRESET (9, 10) : PRINT#1 , "Kon ing WIE 
DOE wil graag een" : PRESEt (9, 20) : PR IN 
T# 1 , "spel 1 et je met je spel en .” : GOSUB 
2190 

810 PRESET (9, 0) :PRINT#1, "Voordat je 
naar binnen mag, ": PRESEt (9, 10) : PRINT 
#l,"moet je eerst iets voor de" : PRES 
ET (9, 20) :PRINT#1 , "koning doen. " : GOSU 
B2190 

820 PRESET (9,0) :PRINT#1, "Koning WIED 
OE geeft je" : PRESET (9, 10) : PRINT#1 , "d 
ad e 1 i j k " C " z i n n en . " : G0SUB2 1 90 
830 PRESET (9,0) -.PRINT# 1, "Jij moet st 
eeds zeggen WIE" : PRESET (9, 10) : PRINT# 
1, "iets DOET. ": PRESET (9, 20) :PRINT#1, 
"je gaat dus zoeken naar ": PRESET (41 , 
30) : PRINT#1 , " het WIE-woord en": PRES 
ET (170, 40) : PRINT#1 , "het ": PRESET ( 170, 
50) sPRÏNT#!, "DOE-woord. ":GOSUB2190 
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840 FOR AA= 1 TO 1 0 : COLOR 1 : PRESET (41,30) 

: PRINT#1 , " het WIE— wDDrd en PRESET ( 
1 70 , 40 ) ! PR I NT# 1 , " het " : PRESET (170, 50 ) 

: PR ï NT# 1 , " DOE-wóor d . " 

850 : COLÖR lis PRESET (41, 30 ) : PR I NT # 1 , " 
■■": PRESET (170, 50) : PRINT#1 , "Éi 
■"ïNEXTAA 

860 COLOR 1 1 : PRESET ( 4 1 , 30 ) s PR I NT# 1 , " 

: PRESET (170, 40 ) : PR I 
NT#1 , "HH": PRESET (170, 50) :PRINT#1, "1 
HHHH : F0RAA=1T 0500 : NEXT 
870 AA=CINT (RND ( 1 ) *6) : I F AA=0THEN870 
880 ON AAG0SUB227 0 , 2280 , 2290 , 2300 , 23 1 
0 

890 FORCL=lTOC 

900 CLS:SCREEN0: COLOR 1 ,11: PRINT"Hi er 
komt zin" CL" voor "CV." 

910 READEA*,EB$,EC$,ED$ 

920 DEFUSR= 1 44 : Ü=USR ( 0 ) 

930 I FLEN ( E A* ) >35THEN970 

940 LOCATE0 , 2 : PR I NT " r " : FORA A= 1 TOLE 

N (EA$) :PRINt"-"-, ï NEXT: PRINT"-. " 

950 LOCATE0, 3: PRINT" I "EAV I " 1 
960 LOCATE0 , 4 : PR I NT " L» • 5 FORAA= 1 TOLE 
N (EA$) : PRINT”—" ; : NEXT: PRINT" J " : GOT 
01000 

970 LOC ATE0 , 2 : PR I NT " r " ? : FOR AA= 1 T035 
: PRINT"—” ? : NEXT: PRINT"i " 

980 LOC ATÈ0 , 3: PRINT" I "ÉA$: LOCATE0 , 4 
: PR INT" I ” : LC3CATE36, 3: PRINT" I " : LOCA 
TE36 , 4 : FR I NT " I " 1 

990 LOCATE0 , 5 i PR I NT " • • FOR A A= 1 T035 
: PRINT"-" NEXT: PRINT" J " 

1 000 LOCATE0 ,7:1 FEB$= " 0 " OREB$= " 1 " THE 
NPRINT"WIE dóet er i ets?"ELSEIFEB$=" 
2 " THENPR I NT "WIE doen er iets?"ELSEIF 
EB$= " 3 " THENPR I NT "WIE deed er iets?"E 
LSE I FEB$= " 4 " THENPR I NT "WIE deden er i 
ets?" 

1010 LOCATE0 , 8 : PR I NT 

1020 DEFUSR 1=342: U=USR 1(0) 

1 030 P0KE64683 ! , 255 : OUT 1 70 , I NP ( 1 70 ) A 
ND191 

1040 HC=0: L0CATE3, 9: GOSUB2820: IFFI$= 
" "THEN1040 

1 050 I FLEFT* < F I * , 1 > =CHR$ ( 32 ) ORR ÏGHT$ 
( F I % , 1 ) =CHRU> ( 32 ) t HEN 1 040 
1 060 I FF I *=EC$THENCS=CS+ 1 : L0CATE3 , 1 1 
: PL AY " T 1 20SBM6000O6C . " : G0SUB29 1 0 : ÈLS 
ELOCATE0, 1 1 : G0SUB31 10 

1 070 LOCATE0 , 1 4 : I FEB$= " 0 " THENPR I NT " W 
at DOE I K? " ELSE I FEB*="1" THENPR I NT "Wa 
t DOET "ECV?"ELSEIFEB*="2"THENPRINT 
"Wat DOEN " EC$ " ? " ELSE I FEB$= " 3 " THENPR 
INT"Wat DEED "ECV?"ELSEIFEB$="4"THE 
NPRINT"Wat DEDEN "ECV?" 

1 080 LOC ATE4 ,15:1 FEB*= " 0 " THENPR I NT " ~ 

“" ELSE I FEB$= " 4 " THENPR I NT ELSE 

PRINT" 

i 090 DEFUSR 1 =342 : U=USR 1(0) 

1 1 00 P0KE64683 ! , 255 : OUT 1 70 , I NP ( 1 70 ) A 
ND191 

1110 HC= 1 : LOCATE3 , 1 6 : PR I NTEC* : LOCATE 
LEN < EC* > +4 , 1 6 : GOSÜB2B20 : IFFI V "THEN 
1 1 10 

1120 IFLEFT$(FI$, 1 ) =CHR$ ( 32 ) ORR I GHT $ 
(FI*, 1 ) =CHR$ ( 32 ) THEN 1110 
1130 I FF I $=EB$THENCT =CT + 1 : L0CATE3 , 18 
: G0SUB29 1 0 : GOTO 1 1 40ELSELOCATE0 ,18:60 
SUB3220: G0T01 150 

1140 FORAA=1TO1000: NEXTAA, CL: G0T01 17 
0 

1 1 50 FORA A= 1 TO 1 000 : NEXT : DEFUSR 1 =342 : 
U=USR1 (0) 

1160 LOCATE 15, 22 : PR I NT " DRUK OP SELEC 
T" : AA$=INKEY*: IFAA$=CHR$ (24) THENNEXT 
CLELSE 1 1 60 


1170 CLS : COLOR 15,4,4: PR I NT " J e bent k 
laar, "CV." 

1 1 80 D$ < BL > =C$ : CU ( BL ) =CS : CV ( BL ) =CT 
1190 PRINT: PRINT" Je moest uit"C"zinn 
en het": PRINT: PRINT"WIE- en het DOE- 
woord halen.” 

1200 LOC ATE0 , 7 : PR INT" Het WIE-WDord h 
eb je "CS” keer " : PR INT "goed getikt." 
1210 PRINT: PR INT "Het DOE-woord heb j 
e"CT"keer " : PR INT "goed get i kt . " 

1220 IFCS/C>. 6ANDCT/0. 6THENHA=0: GOT 
01260 

1230 HA=1: PRINT: PRINT"Hel aas, helaas 
. Koning WIEDOE vi ndt ": PRINT: PRINT"d 
at je je te vaak hebt vergi st . " : PRIN 
T: PRINT" Je mag nu het paleis niet in 
. ": PRINT: PRINTTAB( 15) "Volgende keer 
beter . " 

1 240 FORAA= 1 TO 1 000 : NEXT : DEFUSR 1 =342 : 
U=USR 1 (0) : LOCATE 15,22 :PRINT"Dr uk op 
SELECT. " 

1 250 AA$= I NKEY$ : I FAA$=CHR$ ( 24 ) THEN 1 4 
00ELSE1250 

1260 GA=0: LOCATE0, 14:PRINT"Dat is ee 
n goed resul taat .": PRINT: PRINT"De ko 
ning laat je nu het pal ei s" : PRINT: PR 
INT"in en je mag een spelletje met h 
em" : PRINT: PR INT "spel en. 

1270 FORAA=1TO500: NEXT 
1 280 DEFUSR 1 =342 : U=USR 1(0) 

1290 LOCATE 15, 22: PR INT "Druk op SELEC 
T. " 

1 300 AA*= I NKEY$ : I FAA$=CHR$ ( 24 ) THEN 1 3 
10ELSE1300 

1310 CLS : COLOR ,11,11: SCREEN2 : GOSUB20 
20 

1320 L I NE ( 90 , 170)— (110, 150) , 1,BF:PRE 
SET (85, 150) : DRAW "Cl 0E 1 5F 1 5L30 " : P A I NT 
(100, 149) , 1 0 : L I NE ( 90 , 169>-(93, 151 ) , 1 
5 , BF : L I NE ( 1 07 , 169)- (110, 151) , 15,67’ d 
eur open 

1330 IFGA=1THENC0L0R1 : GOTO 1350 
1 340 COLOR 1 : PRESET ( 9 , 0 ) : PR I NT# 1 , ” Z oa 
ls je ziet is de deur nu" : PRESEt (9, 1 

0) : PRINT#1 , "open. Je gaat naar binne 

n en" : PRESÈT (9, 20) :PRINT#1, "geeft ko 
ning WIEDOE een hand . " : G0SÜB21 90 
1350 PRESET (9,0) : PR I NT # 1 , "Je mag kie 
zen uit 2 spel 1 et jes. " : PRESET (9, 10) : 
PRINT#l,"Wat wil je: 1) Woorden rade 

n": PRESÉT (105, 20) :PRINT#1, "2) Getal 1 
en raden" 

1 360 PRESET (50,40): PR I NT# 1 , " Ti k 1 of 
2": PRESET (49, 48) :PRINT#1, " 

—II 

1370 PRESET (140, 175) : PR INT# 1, "Tik 1 
of 2" : PRESET ( 139, 183) : PRINT#! , " 

1 380 DEFUSR 1=342: U=USR 1(0) 

1 390 AA$= I NKEY$ : I F AA$= " 1 " THEN3320ELS 
E I FAA$= " 2 " THEN4270EL5E 1 390 
1400 WIDTH29: CLS: COLOR, 11,11: SCREEN2 
: GOSUB2020 

1410 I FHA=0THENL I NE ( 90 , 170) -(110, 150 
) , 1,BF: PRESET (85, 150) : ÖRAW"C10El5F15 
L30 " : P A I NT ( 1 00 , 149) , 10:LINE(90, 169)- 
(93, 1 5 1 ) , 1 5 , BF : L I NE ( 1 07 , 1 69 ) - ( 1 1 0 , 15 

1 ) , Ï5, BF’ deur open 

1420 ï FHA= 1 THENL I NE ( 90 , 170) -(110, 150 
) , 15, BF: PRESET <85, 150) : DRAW"C10EÏ5F1 
5L30 " : PA I NT ( 1 00 , 149) , 10:LINE(100, 151 
>-<100, 170) ,4: CÖLQR4: PSET (9B, 160) : PS 
ET (102, 160) : PSET (98, 159) :PSEt(102, 15 
9) ’ deur di cht 

1 430 I FHA=0THENCOLOR 1 : PRESET ( 9 , 0 ) : PR 
INT#l,"Je hebt "GF"punt en verdiend." 
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1440 COLDR1: PRESET (9, 10) :PRINT#1, "Ko 
ning Wiedoe neemt a-F schei d" : PRESÈT (9 
,20) : PRINT#1 , "van je. " :GOSUB2190 
1 450 I FBL=BTHENPRESET ( 9 , 1 0 ) s PR I NT# 1 , 
"Roep je 1 eer kracht GÖSUB2 190: GOTO 
1510 

1460 PRESET <9, 10) :PRINT#1, "Je mag de 
volgende roepen. " : GOSUB2190: NEXTBL 
1470 ’ 

1480 ’ *** Einde 

1490 ’ ### LET OP: Het codewoord is 


’ ui tsl ag ' . 

1500 ’ 

1510 SCREEN0 : COLOR 15,4,4: L0CATE5 ,10: 
PRINT"Tik het code-woord. " 

1520 DEFUSR 1=342: U=USR1 <0) : POKE&HFCA 
B , &H0 : OUT 1 70 , I NP < 1 70 ) 0R64 
1 530 AA*= I NKÈ Y* : I FAA*= " u " THEN 1 540ELS 
El 530 


1540 COLOR0 : L I NE I NPUT AA* : IFAA*="itsl 
ag " THEN 1 550ELSE 1510 

1 550 CLS : COLOR 1 5 : W I DTH40 : PR I NT " n aam " 
TAB ( 14) "aantal goed bij het " : PRINTTA 
B < 14) 11 MIE— en DOE-woord" : PRINTTAB <14 

1560 F0RBL=1T0B 


1570 PRINTD* (BL) TAB ( 14) CU (BL) TAB <22) 
CV ( BL ) : NE X TBL : FOR A A= 1 TO 1 000 : NE X T 
15B0 L0CATE26, 10: PRINT"****»* 
**♦♦***" 

1 590 L0CATE26 , 1 1 : PR I NT " * 

*" 

1600 L0CATE26 ,12: PR I NT " ♦ Gezien? 

*" 

1610 L0CATE26, 13: PRINT"* 

*" 

1620 L0CATE26, 14: PRINT"* Druk dan 

*" 

1630 L0CATE26, 15: PRINT"* 

*" 

1640 L0CATE26, 16: PRINT"* op SELECT 

*" 

1 650 L0CATE26 , 1 7 : PR I NT " * 

*" 

1660 L0CATE26, 18: PRINT"****** 
*******" 


1670 DEFUSR 1 =342 :U=USR1 (0) 

1 680 A A*= I NKE Y* : I F AA*=CHR* ( 24 ) THEN 1 6 
90ELSE 1 680 

1690 CLS: L0CATE4, 4: PRINT"Wi 1 t u de u 
i tsl ag ": PRINT: PRINT" nog eens zie 
n? (j/n)" 

1 700 DEFUSR 1 =342 : U=USR 1(0) 

1710 AA*=INKEY*: IFAA*=" j "ORAA*=" J "TH 
EN 1 550ELSE I FAA*= " n " ORAA*= " N " THEN 1 720 
ELSEI 710 

1720 L0CATE4 ,12: PR I NT "Wilt U nog mee 
r kinderen mét ": PRINT: PRINT" dit 
programma laten werken? (j/n)" 

1730 DEFUSR 1 =342 : U=USR 1(0) 

1740 AA*=INKEY*: I F AA*= " j " ORAA*= " J " TH 
ENCLEAR2000 : GOSUB1 10: GOTO350ELSE I F AA 
*= “ n " ORAA*= " N " THEN 1 780ELSE 1 740 
1750 ’ 

1760 ’ *** Reset 

1770 ’ 

17B0 DEFUSR=0 : PR I NTUSR ( 0 ) 

1790 ’ 

1 B00 ’ 

1810 ’ 

1820 ’ Invoer-routine inleiding 

1830 ’ 

1 840 B*= " " : AZ= 1 : PR I NTSTR I NG* ( 2 , 32 ) ST 
RING* (2, 29) ; 

1850 AZ*= INPUT* ( 1 ) : IFAZ*=CHR* (13) THE 
NPR I NTSPACE* ( 2— LEN ( B* ) ) : RETURNELSEIF 
AZ*=CHR* ( 8 ) ORAZ*=CHR* ( 29 ) THEN 1 870 


1860 IFAZ*<CHR* (48) ORAZ*>CHR* (57) THE 
NI 850 

1870 IFAZ*=CHR$ (8) ORAZ*=CHR* (29) THEN 
AZ=AZ— 1 : IFAZ=0THENAZ=1 : GOTO1850ELSEB 
*=LEFT* ( B* , AZ - 1 ) : PR I NTCHR* ( 29 ) " " CHR 
*(29) ; : GOTO 1850 
1880 IFAZ=3THEN1 B50 

1890 PRINTAZ*; : AZ=AZ+1 : B*=B*+AZ*: GOT 

01850 

1900 ’ 

1910 ’ Invoer-routine naam 

1920 ’ 

1930 C*=” ": KEY6, CHR* (237) :AZ=1: PRINT 
STRING* (12, 46) STRING* ( 12, 29) ; 

1940 AZ*= INPUT* ( 1 ) : IFAZ*=CHR* (237) TH 
EN 1 5 1 0ELSE I F AZ*=CHR* (13) THENPR I NTSPA 
CE* ( 1 2— LEN ( C* ) ) :RETURNELSEIFAZ*=CHR* 
(8) ORAZ*=CHR* (29) THEN 1960 
1 950 I F AZ *< CHR* ( 32 ) OR AZ * >CHR* ( 32 ) AND 
AZ*<CHR* (45) 0RAZ*>CHR* (45) ANDAZ*<CHR 
* (65) 0RAZ*>CHR* (90) ANDAZ*<CHR* (97) OR 
AZ * >CHR* (122) THEN 1 940 
1960 IFAZ*=CHR* (8) 0RAZ*=CHR* (29) THEN 
AZ=AZ— 1 : IFAZ=0THENAZ=1 : GOTO 1 940ELSEC 
*=LEFT* (C*, AZ— 1 ) : PR I NTCHR* (29) " . "CHR 
*(29) ; :GOTO 1940 
1970 ÏFAZ=13THEN1940 

1980 PRINTAZ*; : AZ=AZ+1 : C*=C*+AZ*: GOT 

01940 

1990 ’ 

2000 ’ *** Tekenen paleis 
2010 ’ 

2020 C0L0R6 : PRESET (30,1 70 ) : DRAW " C6U 1 
35R 1 0D35R5U5R5D5R5U5R5D25 " : F0RAA= ITO 
7: DRAW " R5U5R5D5 " : NEXTAA: DRAW"R5U5R5U 
35R20D40F 1 0D70L 1 40 " : P A I NT ( 1 00 , 1 69 > , 6 
’ omtrek 

2030 COLOR 1: PRESET (30, 35) :DRAW"C1E5F 
5L10" :PAINT (35,34) , 1 : PRESET ( 140, 50) : 
DRAW"C1E10F 10L20" : PA INT ( 150, 49) , 1’to 
rens 

2040 COLOR 1 4 : PRESET ( 34 , 50 ) : DRAW ” C 1 4D 
5R2U5L2 " : PA I NT ( 35 , 52 ) , 14: F0RAA=34T05 
2STEP9 : PRESET ( A A , 75 ) : DRAW " C 1 4D5R2U5L 
2 " : PA I NT ( AA+ 1,77) , 14: NEXTAA’ tor enraa 
mpjes links 

2050 F0RAA= 1 44T0 1 54STEP 1 0 : PRESET ( AA , 
55 ) : DRAW " C 1 4D5R2U5L2 " : PA I NT ( AA+ 1,57) 

, 14: NEXTAA: F0RAA= 1 44T01 54STEP1 0: PRES 
ET (AA, 75) : DRAW"C14D5R2U5L2" : PA INT (AA 
+1,77) : NEXTAA’ torenraampjes rechts 
2060 COLOR3 : PRESET (176,170): DRAW " C3U 
25E 1 2F 1 2D25L24 " : F'A I NT ( 1 80 , 169) ,3: COL 
0R2 : PRESET (181,170): DRAW " C2U20R 1 5D20 
L15" : PA INT ( 184, 169) ,2’ garage 
2070 COLOR 1 4 : FÖRAA=40TO90STEP 1 0 : PRES 
ET ( AA , 1 05 ) : DRAW " C 1 4D5R5U5L5 " : PA I NT ( A 
A+2, 107) , 14: NEXTAA’ kleine raampjes 
2080 F0RAA= 1 05TO 1 55STEP 1 0 : PRESET ( AA , 
105) : DRAW "Cl 4D5R5U5L5 " : PA INT (AA+2, 10 
7) , 14: NEXTAA’ kl ei ne raampjes 
2090 FORAA=40TO65STEP25 : F0RAB= 1 20TO1 
30STEP5: LINE ( AA, AB) - ( AA+15, AB) : NEXTA 
B, AA: FORAA=40TO55STEP5: LINÈ (AA, 120) - 
( AA, 130) : NEXTAA: FORAA=65TO80STÈP5: LI 
NE (AA, 120) -(AA, 130) : NEXTAA’ twee rame 
n 

2 1 00 FORA A= 1 20TO 1 30STEP5 : L I NE ( 90 , A A ) 

- < 1 10, AA) : NEXTAA: FORAA=90TO1 10STÈP5: 
LINE (AA, 120) - (AA, 130) : NEXT’ groot raa 
m 

2110 F0RAA= 1 20T O 1 45STEP25 : FORAB= 1 20T 
0 1 30STEP5 : L I NE ( AA , AB ) - ( AA+ 1 5 , AB ) : NE X 
T AB , A A : FOR AA= 1 20TÖ 1 35STEP5 : L ï NE ( A A , 1 
20) -(AA, 130) : NEXTAA: FORAA=145TO160ST 
EPS: LINÈ (AA, 120) -(AA, 130) : NEXTAA’ twe 
e ramen 
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2 1 20 FOR AA=40TO65STEP25 : FORAB= 1 45T01 
60STEP5 ! L I NE ( AA , AB ) - ( A A+ 1 5 , AB ) ! NE X T A 
B , A A : FOR A A=40TO55STEP5 : L I NÉ ( A A , 1 45 ) - 
(AA, 160) : NEXTAA: FORAA=65TO80STEP5: LI 
NE (AA, 146) -(AA, 160) : NEXTAA’ ramen lin 
ksonder 

2 1 30 FORAA= 1 20TO 1 45STEP25 : FOR AB= 1 45T 
O160STEP5: LINE ( AA, AB) - ( AA+15, AB) : NEX 
T AB , A A : FORA A= 1 20TO 1 35STEP5 : L I NE ( A A , 1 
45) -(AA, 160) : NEXTAA: FORAA=145TO160ST 
EP5: LINE (AA, 146) -(AA, 160) : NEXTAA’ ram 
en rechtsonder 

2 1 40 C0L0R4 : PRESET (90,170): DRAW ” C4G2 
0R60H20L20 " : PAINT ( 100; 179) , 4’ pad 
2150 RETURN 
2160 •’ 

2170 ’ tekst wissen 

2180 ’ 

2 1 90 FORA A= 1 TO 1 000 : NE X T : DEFUSR 1=342: 
U=USR1 (0) 

2200 FOR A A= 1 TO 1 0 : PRESET < 1 40 , 1 75 ) : PR I 
NT # 1 , "Druk op": PRESET (140,185) : PR INT 
#1 , "SELECT. " : AA*=INKEY*: IFAA*=CHR* (2 
4) THEN2220ELSENEXTAA 

22 10COLOR 1 1 : PRESET ( 1 40 , 1 75 ) : PR I NT# 1 
, " " : PRESET (140, 185) : PRINT#1 , " 
MHHH" : FORA A= 1 TO 1 00 : NEX T : COLOR 1 : GO 
TO2200 


2220 COLOR 1 1 : PRESET ( 9 , 0 ) : PR I NT# 1 , "MÊ 

wmmm i ” : preset ( 

9, 10) : PR I NT # 1 , "■■nHHHHHHI 
i": PRESET (9, 20) :PRINT#1, "BM 


2230 PRESET (140, 175) : PR INT# 1 
■" : PRESET ( 1 40 , 1 85 ) : PR I NT# 1 , " 
: COLOR 1: RETURN 
2240 ’ 



2250 •' ### Random-restore 


2260 •' 

2270 RESTORE2350: RETURN 
2280 REST0RE24 1 0 : RETURN 
2290 RESTORE2470: RETURN 
2300 RESTORE2530: RETURN 
23 1 0 RESTORE2590 : RETURN 
2320 ’ 


2330 ■’ Data zinnen 

2340 ’ 

2350 DATADE MAN LOOPT OP STRAAT., 1,D 
E MAN, LOOPT 

2360 DATAVADER STAAT IN DE KEUKEN. , 1 
, VADER, STAAT 

2370 DATAMARGA HAALT EEN MOOI BOEK U 

I T DE B I BL I OTHEEK . , 1 , MARGA , HAALT 

2380 DATAOP STRAAT LOPÈN' VEEL MENSEN 

.,2, VEEL MENSEN, LOPEN 

2390 DATADE BOEREN ZITTEN TEGENOVER 

MIJ OP DE BANK., 2, DE BOEREN, ZITTE 

N 

2400 DATAWISTEN JULLIE DE WEG NAAR H 
UIS?, 4, JULLIE, WISTEN 
2410' DATADE OÜDE MAN VERTELT AAN DE 
KINDEREN EEN MOOI VERHAAL ., 1 , DE OUD 
E MAN, VERTELT 

2420 DATADE ACTEUR SPEELDE EEN GROTE 
ROL . , 3 , DE ACTEUR , SPEELDE 
2430 DATADE VOGELS ZATEN BIJ HET VOE 
R IN DE TUIN., 4, DE VOGELS, ZATEN 
2440 DATAMET HUN TROMPET VALLEN DE C 
LOWNS IN HET ZAND., 2, DE CLOWNS, VALL 
EN 

2450 DATAVADER VINDT EEN SCHILDERIJ 
OP DE ZOLDER. , 1 , VADER, VINDT 

2460 DATA ANNEKE DRINKT EEN KOPJE KOF 
FIE. , 1, ANNEKE, DRINKT 

2470 DATAHANS EN PETER KIJKEN DOOR H 
ET RAAM NAAR DE VOGELS. , 2, HANS EN 
PETER, KIJKEN 


2480 DATA IN DE KAMER ZITTEN OOM EN T 
ANTE., 2, OOM EN TANTE, ZITTEN 
2490 DATADE JONGENS LOPEN DOOR DE SN 
EEUW OVER DE STRAAT., 2, DE JONGE 

NS, LOPEN 

2500 DATADE REIZIGERS LEZEN DE WAARS 
CHUWING. ,2, DE REI Z I GERS, LEZEN 
2510 DATAOP DE TRAP EET JAN EEN APPE 
L. , 1, JAN, EET 

2520 DATAVADER GEEFT DE BABY EEN SCH 
ONE LUIER. , 1 , VADER, GEEFT 

2530 DATAHOE LANG REISDE' RONALD?, 3, R 
ONALD, REISDE 

2540 DATAMORGEN GA IK WEER NAAR MIJN 
VRIEND. ,0, IK, GA 

2550 DATA IN DÈ BEDDEN LAGEN DE GASTE 
N. , 4, DE GASTEN, LAGEN 

2560 DATAOP 4 OKTOBER VIEREN WE IEDE 
R J AAR D I ERENDAG . , 2 , WE , V I EREN 

2570 DATA IN DE SCHEMERING' SCHROBT DE 
MATROOS HET DEK., 1, DE MATROOS, SCHR- 
OBT 

2580 DAT AH IJ STROOIDE BROOD VOOR DE 

VOGELS. ,3, HIJ, STROOIDE 

2590 DAT A I K TÉKENDE EEN SCHELP IN MI 

J N RODE SCHR I FT . , 3 , I K , TEKENDE 

2600 DATAOP ZIJN SCHIP ROOKT DE KAPI 

TEIN EEN PIJPJE. , 1 , DE KAPITEIN, ROOK 

T 

2610 DATA’ S MIDDAGS ZAGEN WE EEN SPA 
NNENDE FILM. , 4, WE, ZAGEN 

2620 DATASIMONE KLOM OVER DE MUUR., 3 
, S I MONE , KLOM 

2630 DAtAIN EEN GROOT WEILAND LIEPEN 
DE K I NDEREN . , 4 , DE KI NDEREN , L I 

EPEN 

2640 DATAELS EN ERIK HOREN DE STEM V 
AN DE NIEUWSLEZER. ,2, ELS EN ERIK 

, HOREN 

2650 DATALEEST JOUW BROERTJE DE KRAN 
T?, 1 , JOUW BROERTJE, LEEST 
2660 DATAVAAK REI ZÉN DE WIELRENNERS 
PER VL I EGTUI G . , 2 , DE W I ELRENNER 

S, REI ZEN 

2670 DATAAL HEEL VROEG STAAT HENK NA 
AST ZIJN BED. , 1, HENK, STAAT 

2680 DAT AVOL VERBAZING ROEPT DE OUDE 
MAN ZIJN VROUW., 1, DE OUDE MAN, 

ROEPT 

2690 DATAIN JANUARI STAAN ALLE KOE IE 
N NOG OP STAL., 2, ALLE KOEIEN, STA 

AN 

2700 DATADE BUURMAN KOCHT EEN NIEUWE 
AUTO. , 1 , DE BUURMAN, KOCHT 
2710 DATADAAR STAAT MOEDER. , 1 , MOEDER 

2720 DATADE TOERISTEN ZATEN OP HET T 

ERRAS. , 4, DE TOERISTEN, ZATEN 

2730 DATAIN DE BUS KOCHT IK EEN STRI 

PPEN- KAART . , 3, IK, KOCHT 

2740 DATADE TIJGER' KOMT UIT EEN ANDE 

R WERELDDEEL . , 1 , DE TI JGER , KOMT 

2750 DATAIN DE GANG STAAT EEN' PAARD! 

, 1 , EEN PAARD, STAAT 

2760 DATAWE GINGEN WEER MET DE TRAM 
NAAR HUIS. ,4, WE, GINGEN 

2770 DATADE LIMONADE' HAALT HIJ UIT D 
E KOEL- KAST . , 1 , H I J , HAALT 
2780 DATAMOEDER HANGT HET SCHILDERIJ 
AAN DE MUUR. , 1 , MOEDER, HANGT 
2790 ’ 

2800 ’ ### Invoer-routine antwoord 
2810 ’ 

2820 F I *= " " : AZ = 1 : PR I NTSTR I NG$ ( 20 , 32 ) 
STRING* (20,29) ; 

2830 AZ*= INPUT* ( 1 ) : IFAZ*=CHR* (13) THE 
NPR I NTSPACE* ( 20-LEN (FI*) ) : RETURNELSE 
IFAZ*=CHR* (8) ORAZ*=CHR* (29) THEN2850 
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2840 IFAZUKCHR* (32) ORAZ$>CHR$ (32) AND 
AZ$<CHR$ ( 65) ORAZ$>CHR* (90) THEN2B30 
2850 IFAZ$=CHR$ (8) ORAZ*=CHR* (29) THEN 
AZ=AZ— 1 : IFAZ=0THENAZ=1 : GOTO2830ELSEF 
I*=LEFT*(FI$, AZ-1) : PR I NTCHR$ ( 29 ) " "C 
HR*<29) ; : GOTÖ2830 
2860 IFAZ=21THEN2830 

2870 PRINTAZ*; : AZ=AZ+1 s FI$=FI$+AZ$: G 

OTO2830 

2880 ’ 

2890 ' *** subroutine goed 
2900 ’ 

2910 I FHB= 1 THENPR I NT " Goed z o ! " : I FHC= 
1 THENPLAY " T 1 20S8M6000O5G2E " 

2920 I FHB=2THENPR I NT " Pr i ma , "C*"."sl 

FHC= 1 THENPLAY " T200S 1 4M 1 00O5CDEO6CDE " 
2930 I FHB=3THENPR I NT " Te gek! Hel emaa 
1 goed. " : IFHC=1 THENPLAY "T180S10M8000 
05C. DE" 

2940 IFHB=4THENPR INT "Prima gedaan, " 
C$". "s I FHC=1 THENPLAY "T250S 11 Ml 000003 
C 05C 06C2 11 

2950 IFHB=5THENPRINT"Ui tstekend ! ! ! " : 
I FHC= 1 THENPLAY " T200S 1 4M500O5CDEO6CDE 

2960 I FHB=6THENPR I NT "Jij hebt het be 
grepen. " : IFHC=1 THENPLAY "T150S10M6500 
06E' 7 CE . " 

2970 IFHB=7THENPR INT "Knap , "C$".":IF 

HC= 1 THENPLAY " T200S 1 4M500O5CDEO6EDC " 
2980 IFHB=BTHENPRINT"Hel emaal te woe 
pie. ": IFHC=1 THENPLAY "T120S8M6000O5G2 
E" 

2990 I FHB=9THENPR I NT " Ga zo door.":IF 
HC= 1 THENPLAY " T200S 1 4M 1 00O5CDEO6CDE " 
3000 IFHB=10THENPR INT "Vol houden, "C$ 
" . " : I FHC= 1 THENPLAY " T 1 80S 1 0M8000O5C . D 
E" 

3010 IFHB=1 1 THENPR INT "Het gaat tanta 
stisch! ! " : IFHO=l THENPLAY "T250S14M80O 
5CDE06EDC07CDE" 

3020 I FHB= 1 2THENPR I NT "Dit is echt he 
el knap. ": IFHC=1THENPLAY"T150S10M650 
0O6E2CE. " 

3030 I FHB= 1 3THENPR I NT " Wééééééé Aéénz i 
nni g goed ! ! ! " s I FHC=1 THENPLAY "T200S 14 
M500O5CDEO6CDE" 

3040 I FHB= 1 4THENPR I NT "Je doet het ge 
weldig. ": IFHC=1 THENPLAY "T200S1 4M500O 
5CDE06EDC" 

3050 IFHB=15THENPR INT "Prima, jo-fel , 
goed, prachtig. " : I FHC= 1 THENPLAY "Tl 50 
S10M6500O6E2CE. " 

3060 I FHB > 1 5THENHB= 1 : G0T029 1 0 
3070 HB=HB+1: RETURN 
3080 ' 

3090 * *** subroutine -fout 1 

3100 •’ 

3110 I FEB$= " 0 " THENPR I NT " Nee , hoor. " 
EC$” doe iets. 

3120 IFEB$=" 1 "THENPR INT "Nee, hoor. " 
EC$" doet iets." 

3130 I FEB$= " 2 " THENPR I NT " Nee , hoor. " 
EC$" doen iets." 

3140 IFEB*=" 3" THENPR INT "Nee, hoor. " 
EC$" deed iets." 

3150 IFEB*= "4 "THENPR INT "Nee, hoor. " 
EC$" deden iets." 

3 1 60 F0RAA= 1 T07 : SOUND0 , 254 : SOUND 1,0: 
SOUNDS, 1 1 : FORAB=1TO200: NEXT: DEFUSR=1 
44 : U=USR ( 0 ) : F0RAB= 1 TO200 : NE X TAB , AA 
3 1 70 FORAA= 1 TO200 : SOUND0 , 254 : SOUND 1 , 
0 : S0UND8 , 1 1 : NE X T : DEFUSR= 1 44 : U=U5R ( 0 ) 
3180 RETÜRN 
3190 ’ 

3200 ’ *** subroutine fout 2 
3210 ’ 


3220 PR INT "Nee "C$", kijk goed:":PRI 
NT : PRINTECV "ED$ 

3230 FOR A A= 1 T07 : SOUND0 , 254 : SOUND 1,0: 
S0UND8 ,11: F0RAB= 1 TO200 : NEXT : DEFUSR= 1 
44 : U=USR ( 0 ) : F0RAB= 1 TO200 : NEXTAB , AA 
3240 F0RAA= 1 TO200 : SOUND0 , 254 : SOUND 1 , 
0 : S0UND8 , 1 1 : NE X T : DEFUSR= 144: U=USR ( 0 ) 
3250 RETURN 
3260 ' 

3270 ' 

3280 ' 

3290 * *** spel 1 

3300 ' woorden raden 

3310 ’ 

3320 GA=1 : FORAA=1TO10: GG ( AA) =25: NEXT 
AA 

3330 CLS : COLOR 1,9,12: SCREEN 1 : W I DTH3 1 
: LOCATE3, 4: PRINT" Je hebt gekozen voo 
r" SPRINT: PRINT" 'woorden raden'. 
3340 L0CATE3, 13: PR INT "KI opt dat? (j/ 
n) 

3350 DEFUSR 1 =342 : U=USR 1(0) 

3360 AA$= I NKEY$ : I FAA$= " j " 0RAA$= " J " TH 
EN3370ELSE I F AA$= " n " 0RAA$= " N " THENGA= 1 
: GOTO 1 3 1 0ELSE3360 

3370 CLS : COLOR , , 6 : LOC ATE2 , 2 : PR I NT " Ha 
rtelijk wel kom' bi j ": PRINT: PRINT" ’ W 
OORDEN RADEN ' . " 

3380 LOCATE0, 7: PRINT"Eén van de -favo 
ri ete" : PRINT: PRINT”spel 1 et jes van Ko 
ning WIEDOE." 

3390 LOCATE0 ,12: PR I NT " De koning gee-f 
t je dadel i j k " s PRINT: PRINT"een omsch 
rij ving van een" : PRINT: PR INT "woord. " 
3400 PRINT: PR INT "Jij moet dat woord 
raden. ": PRINT: PRINTTAB ( 12) "Veel plez 
i er . " 

34 1 0 F0RAA= 1 T025 : L0CATE4 , 22 : PR I NT " Dr 
uk op SELECT. " : AA$=INKEYi: GB=RND ( 1 ) : 
IFAA$=CHR$ (24) THEN3430ELSENEXTAA 
3420 L0CATE4, 22: PRINT" 

" : FOR A A= 1 TO 1 00 : NE X T : G0T034 1 0 
3430 GB=C I NT ( RND ( 1 ) *20 ) : F0RAA= 1 TO 1 0 : 
IFGB=GG ( AA) THEN3430ELSENEXTAA 
3440 GG (GA) =GB 
3450 IFGB=0THENRESTORE3930 
3460 IFGB=1THENRESTORE3940 
3470 I FGB=2THENRESTORE3950 
3480 IFGB=3THENRESTORE3960 
3490 IFGB=4THENRESTORE3970 
3500 I FGB=5THENRESTORE3980 
3510 I FGB=6THENRESTORE3990 
3520 IFGB=7THENRESTORE4000 
3530 I FGB=8THENREST ORE40 1 0 
3540 I FGB=9THENRESTORE4020 
3550 I FGB= 1 0THENRESTORE4030 
3560 I FGB= 1 1 THENRESTDRE4040 
3570 I FGB= 1 2THENRESTORE4050 
3580 I FGB= 1 3THENRESTORE4060 
3590 I FGB= 1 4THENRESTORE4070 
3600 I FGB= 1 5THENRESTDRE4080 
3610 I FGB= 1 6THENRESTORE4090 
3620 I FGB= 1 7THENREST0RE4 1 00 
3630 I FGB= 1 8THENREST0RE4 110 
3640 I FGB= 1 9THENREST0RE4 1 20 
3650 READGAS, GB$ 

3660 COLOR, , GA: CLS: PRINT"Koning Wied 
oe zegt : " : PRINT : PR INT "Het woord dat 
ik in gedachten" : PRINT : PR INT "heb , he 
eft"LEN<6A$) "letters en 
3670 PR I NT : PR I NTGB$ 

3680 PRINT: PRINT”De eerste letter is 
: ”LEFT$ (GA$, 1 ) 

3690 PR I NTTAB ( 20 ) : PR I NT " ~" 

3700 PRINT: PRINT"Tik het woord, als 

je het " : PRINT“weet (denk aan RETURN) 
11 
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3710 PRINT: PRINT"Als je het niet wee 
t, druk " : PRINT"dan alleen op RETURN. 

II 

3720 P0KE646B3! ,0: DUT 170, INP(170)OR6 
4 

3730 L0CATE2 , 20 : G0SUB4 1 60 
3740 I FGC*=GA*THENGC=LEN < GA* ) ELSE383 
0 

3750 CLS: PRINT: PRINT"Het woord was i 
nderdaad” : PRINT: PRINTGA*" . " : LOCATE0, 
7: IFGC=lTHENPRINT"Koning Wiedoe geef 
t je 1 " : PRINT : PRINT"punt . "ELSEPRINT" 
Koning Wiedoe geeft je"GC: PRINT: PRIN 
T" punt en. " 

3760 GF=GF+GC 

3770 LOCATE0, 12: IFGF=1THENPRINT" Je h 
ebt nu dus 1 punt. "ELSEPRINT"Totaal 
heb je nu"6F"punten . " 

3780 IFGA>9THENLOCATE0 !I 15:PRINT"Je h 
ebt nu tien woorden" :PRINT"geraden. " 
: PRINT: PRINT"Koni ng Wiedoe heeft gee 
n" : PR INT " 2 i n meer . "ELSE3810 
3790 FORAA= ITO 1000: NEXT: DEFUSR1=342: 
U=USR 1 (0) 

3800 L0CATE12, 21 : PR INT "Druk op SELEC 
T . " : AA*= I NKE Y* : I FAA*=CHR* ( 24 ) THEN 1 40 
0ELSE3800 

3810 LOCATE0, 16: PRINT"Wi 1 je nog een 
woor d " : PR I NT : PR I NT " r aden ? ( j / n > 

3820 A A*= I NKEY* : I F AA*= " j " OR A A*= " J " TH 
ENG A=GA+ 1 : GOTO3430ELSE I F A A*= " n " OR A A* 
= " N " THEN 1 400ELSE3820 
3830 F0RGB=2T0LEN < GA* ) 

3840 CLS: PRINT: PRINT"Het woord heeft 
"LEN (GA*) "letters en ": PRINT: PRINTGB* 
3850 PRINT: PRINT"De eer ste”GB" 1 etter 
s zijn: ": PRINT: PRINTLEFT* (GA*, GB) STR 
ING* (LEN (GA*) -GB, 46) 

3860 PRINT: PRINT"Probeer het nog een 
s. " 

3870 P0KE646B3! ,0: OUT 170, INP(170)OR6 
4 

3880 L0CATE2 ,18: G0SUB4 1 60 

3890 I FGC*=GA*THENGC=LEN ( GA* ) -GB : GOT 

O3750ELSENEXT: GC=0: GOTO3750 

3900 ’ 

3910 ’ ### data woorden spel 
3920 ' 

3930 DATAcassetterecorder , je kunt er 
mee opnemen. 

3940 DATAtoi 1 etpapi er , je gebruikt he 
t in een klein kamertje. 

3950 DATAkl asl okaal , het is in de sch 
ooi . 

3960 DATAweerber i cht , je hoort het va 
ak op de radio. 

3970 DATAsni jboont jes, het is een gro 
ente. 

3980 DATAschemer 1 amp , het geeft licht 

3990 DATAtel ef oontoestel , het is een 
communicatie- middel. 

4000 DATAbureaustoel , je kunt er op z 
i tten . 

4010 DATAvl i egtui g , het is een vervoe 
rmi ddel . 

4020 DATAschaap , het is een dier. 

4030 DATA1 ui dspreker , er komt geluid 
ui t . 

4040 DATAvi deorecorder , het is een du 
ur apparaat. 

4050 DATAlynx,het is een dier. 

4060 DATAmel oen, het is een vrucht. 
4070 DATAtrapper , het is een deel van 
een fiets. 

4080 DATAschi 1 der i j , het hangt aan de 
muur . 


4090 DATAkeukenraam, je kunt er door 
naar buiten kijken. 

4100 DAT At i jdschrif t, je kunt er in 1 
ezen. 

4110 DATAsl aapkamerdeur , het bevindt 
zich in je huis. 

4120 DATAtui nsl ang , je gebruikt het a 
ls het niet regent. 

4130 ' 

4140 ' ### Invoer— routi ne 
4150 ' 

4 1 60 GC*= " " : AZ= 1 : PR I NTSTR I NG* ( LEN ( GA 
*) , 46 ) STR I NG* ( LEN ( GA* ) ,29) ; 

4170 AZ *= I NPUT * ( 1 ) : IFAZ*=CHR* ( 13) THE 
NPR I NTSPACE* (LEN (GA*) -LEN (GC*) ) : RETU 
RNELSEIFAZ*=CHR* (8) ORAZ*=CHR* (29) THE 
N4190 

4180 I F AZ *< CHR* ( 97 ) ORAZ* >CHR* ( 1 22 ) TH 
EN4170 

4190 IFAZ*=CHR* (8) ORAZ*=CHR* (29) THEN 

AZ=AZ— 1 : IFAZ=0THENAZ=1 : GOTO4170ELSEG 

C*=LEFT* (GC*, AZ-1 ) : PRINTCHR* (29) " . "C 

HR* ( 29) ï : GOTO4170 

4200 IFAZ=LEN (GA*) +1THEN4170 

4210 PRINTAZ*; : AZ=AZ+1:GC*=GC*+AZ*:G 

OTO4170 

4220 ' 

4230 ’ 

4240 ’ *** spel 2 

4250 ' getallen raden 

4260 ' 

4270 CLS: C0L0R1 ,9, 12: SCREEN 1 : WIDTH31 
: L0CATE3, 4: PRINT" Je hebt gekozen voo 
r ":PRINT: PRINT" 'getallen raden'. 
4280 LQCATE3, 1 3: PRINT"K1 opt dat? (j/ 
n) 

4290 DEFUSR 1 =342 : U=USR 1(0) 

4300 AA*=INKEY*: IFAA*=" j "ORAA*=" J "TH 
EN43 1 0ELSE I F AA*= " n " ORAA*= " N " THENG A= 1 
: GOTO 1 3 1 0ELSE4300 

4310 CLS : COLOR , , 6 : LOC ATE2 , 4 : PR I NT " Ha 
rtelijk welkom bi j ": PRINT: PRINT" 'GE 
TALLEN RADEN ' . " 

4320 LOCATE0, 9: PR INT "Eén van de favo 
ri ete": PRINT: PRINT"spel let jes van Ko 
ni ng WIEDOE. ": GA=1 : GF=0 
4330 LOCATE0, 13: PRINT"De koning neem 
t dadel ijk": PRINT : PR INT "een getal in 
zijn gedachten." 

4340 PRINT: PRINT" Ji j moet dat getal 
raden. ": PRINT: PRINTTAB ( 12) "Veel plez 
i er . " 

4350 FORAA= 1 T025 : L0CATE4 , 22 : PR I NT " Dr 
uk op SELECT . " : AA*= I NKEY* : GB=RND ( 1 ) : 
IFAA*=CHR* (24) THEN4370ELSENEXTAA 
4360 L0CATE4 , 22 : PR I NT " 

" : FORAA= 1 TO 1 00 : NEXT : GOTO4350 
4370 GE= 1 5 : COLOR , , GA 

4380 CLS: PRINT: PR INT "Kon i ng Wiedoe z 
egt :": PRINT: PRINT" Ik neem een getal 
onder" -.PRINT: PRINT"de 100 in mijn ge 
dachten . " 

4390 6B=C I NT ( RND ( 1 ) * 1 00 ) 

4400 PRINT: PRINT"Probeer het getal t 
e raden. " 

44 1 0 L0CATE7 ,15: GOSUB4600 
4420 GC=VAL(GC*) 

4430 I FGC< GBTHENGE=GE— 1 : LOCATE0 , 1 8 : P 
R INT "Jouw getal is te LAAG. ": PRINT: P 
R INT "Probeer het opni euw. " : GOTO4410 
4440 IFGC>GBTHENGE=GE-1 :LOCATE0, 18: P 
RINT"Jouw getal is te HOOG. ": PRINT: P 
RINT"Probeer het opni euw. ": GOTO4410 
4450 CLS: IFGE<0THENGE=0 
4460 PR INT: PR INT "Het getal dat kon in 
g Wi edoe" : PRINT : PRINT"z i jn gedachten 
had, was" : PRINT : PRINT ”i nderdaad"6B" 

If 
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4470 IFGE=1THENPRINT: PRINT: "Koning W 
iedoe geeft je 1 punt PRINT: G0T044 
90 

4480 PR INT: PR INT "Koning Wiedoe gee-ft 
je "GE: PRINT : PR INT "punt en . " 

4490 GF=GF+GE 

4500 IFGF=1THENPRINT : PRINT"Je hebt n 
u dus 1 punt. ":GDTD4520 
4510 PRINT: PRINT"Totaal heb je nu" GF 
"punten . 

4520 IFGA>9THENLOCATE0j, 14: PRINT" Je h 
ebt nu tien getal 1 en" : PRINT"geraden. 
": PRINT: PRINT"Koning Wiedoe heeft ge 
en " : PR I NT " z i n meer . " ELSE4550 
4530 FOR AA= 1 TO 1 000 : NEXT : DEFUSR 1=342: 
U=USR1 <0> 

4540 L0CATE12, 21 : PRINT"Druk op BELEC 
T. " : A A*= I NKE Y$ : I FAA$=CHR$ ( 24 ) THEN 1 40 
0ELSE4540 

4550 LOCATE0, 16: PRINT"Wi 1 je nog een 
getal " : PRINT: PRINT’V aden? ( j/n) 

4560 AA*=INKEY$: I F AA$= " j " OR A A$= " J " TH 
ENGA=GA+ 1 : GOTO4370ELSE I F AA$= " n " DRAA* 
=”N" THEN 1 400ELSE4560 
4570 ’ 

4580 ’ ### Invoer-routine 
4590 ? 

4600 GC$= " " : AZ= 1 : PR I NTSTR I NG$ ( 2 , 32 ) S 
TRING$ <2, 29) ; 

4610 AZ$=INPÜT$(i> : IFAZ$=CHR$ ( 13) THE 
NPR I NTSPACE* ( 2-LEN ( GC$ ) ) : RETURNELSE I 
FAZ$=CHR$ <8) ORAZ$=CHR$ <29) THEN4630 
4620 IFAZ$<CHR$ (48) ORAZ$>CHR*> (59) THE 
N4610 

4630 IFAZ$=CHR* (8) ORAZ*=CHR* (29) THEN 
AZ=AZ-1 : I FAZ=0THENAZ= 1 : 6OTO4610ELSEG 
C$=LEFT$ <GC$, AZ-1 ) : PRINTCHR* (29) " "C 
HR$ (29) ; : G0TD461 0 
4640 IFAZ=3THEN4610 

4650 PRINTAZ*; : AZ=AZ+1 : 6C$=GC$+AZ$: G 

OTO4610 

4660 ’ 

4670 ’ 

4680 ' 

4690 ' mmmmmmmmmitmmmxm 

4700 ’ 
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Regel: 4510 - 189 
Regel: 4520 - 185 
Regel: 4530 - 147 
Regel: 4540 - 50 
Regel: 4550 - 192 
Regel: 4560 - 109 
Regel: 4570 - 58 
Regel: 4580 - 58 
Regel: 4590 - 58 
Regel: 4600 - 254 
Regel: 4610 - 186 
Regel: 4620 - 47 
Regel: 4630 - 226 
Regel: 4640 - 37 
Regel: 4650 - 7 
Regel: 4660 - 58 
Regel: 4670 - 58 
Regel: 4680 - 58 
Regel: 4690 - 58 

S 4700 - 58 
: 54519 




THE SOFTSHOP HEEFT EEN NIEUW ADRES MET NOG 
MEER RUIMTE EN NOG MEER MSX-TITELS. 

ZIE ONZE ADVERTENTIE Cf DE ACHTERKANT VAN DIT BLAD 


EEN ABONNEMENT IS VOORDELIGER EN JE 
MIST GEEN NUMMERS! 

Een abonnement op de MSX-Gids kost 
FL.40,= per 6 nummers en is te ver- 
krijgen door overmaking van dit be- 
drag op Giro: 5036011 t.n.v. 
J.Herps, Postbus 10252, Amsterdam. 

Voor Belgie: Bfr. 750 op bankreke- 
ningnummer 235-0430464-87 bij de 
Generale Bank te Hasselt, t.n.v. 
J.Herps te Amsterdam. 

Abonnementen worden aangegaan voor 
een periode van 12 maanden en de 
abonnees krijgen, voor het ver- 
strijken van het abonnement, een 
bericht van de uitgeefster en 
kunnen dan hun abonnement verlen- 
gen. Indien een verlenging niet 
gewenst is hoeft verder niet te 
worden betaald; opzeggen van een 
abonnement is niet nodig, maar 
wordt wel op prijs gesteld. 

Girobetaalkaarten of Eurocheques 
(vergeet niet het nummer op de 
achterzijde) voor een abonnement 
kunnen gestuurd worden naar: 
Uitgeverij Herps , Postbus 10252, 
1001 EG Amsterdam. 

Telefonische inlichtingen over 
abonnementen en losse nummers: 
020-327464. 


MSX-GIDS 

BEWAARBANDEN 

Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn 

-uiteraard- geel en hebben het MSX-Gids 
logo (in zwarte opdruk) op de voorzijde en 
op de rug. In deze mappen kunnen minstens 
6 exemplaren van de Gids opgeborgen 
worden. De bladen worden in de map 
vastgezet met speciale (bijgeleverde) 
metalen klemmen. Hierbij wordt het blad 
niet beschadigd! De prijs van deze 

bewaarband is 19,95 per stuk. Deze prijs 
is inclusief BTW en verzendkosten. 

De banden zijn te bestellen door 

overmaking van 19,95 per stuk op Giro: 
5036011 t.n.v. J.Herps te Amsterdam onder 
vermelding van 'bewaarband’. 

Voor Belgie is dit Bfr. 365 op bankreke- 
ning 235-0430464-87 bij de Generale Bank 
te Hasselt t.n.v. J.Herps, Postbus 10252, 
1001 EG Amsterdam onder vermelding van 
' bewaarband ' . 
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COL lëCT / OM 



Garbage collection is in nummer 2 van de 
MSX-Gids al even ter sprake geweest en ik 
wil er hier verder op ingaan, omdat 
inmiddels al enige programma’s gepubli- 
ceerd zijn, waarin garbage collection 
problemen kunnen voorkomen. 

«AT IS GARBAGE COLLECTION? 

Om het de gebruiker zo makkelijk mogelijk 
te maken kan in BASIC met variabelen 
worden gewerkt zonder met de adressen van 
deze variabelen rekening te houden. Met 
numerieke variabelen heeft de computer 
geen problemen; deze hebben een vaste 
lengte en bij wijziging van de inhoud van 
de variabele kan deze worden overschreven 
met de nieuwe inhoud. Deze variabelen 
worden dan ook in het 'normale' werk- 
geheugen geplaatst door de computer. 
Anders ligt het echter bij alfanumerieke 
(string) variabelen. Voor deze variabelen 
gebruikt de computer het gedeelte van het 
geheugen dat met CLEAR is gereserveerd in 
het programma. Hier is de lengte variabel 
(max. 256 tekens) en kan een oude 
variabele niet worden overschreven omdat 
de lengte niet gelijk hoeft te zijn. De 
computer zet daarom de inhoud van de 
variabele elke keer op een ander adres en 
gaat hiermee net zolang door tot er in het 
geheugen geen ruimte meer is om gegevens 
weg te schrijven. Dan komt de garbage 
collection routine in werking en het 
geheugen wordt 'schoongemaakt' door alle 
in gebruik zijnde stringvariabelen opnieuw 
in het geheugen op te bouwen. De oude 
plaatsen komen vrij en de computer kan 
opnieuw het geheugen vullen met gegevens. 
Normaal merken we hier niets van. Er 
worden meestal niet veel enkelvoudige 
variabelen gebruikt en de computer is dan 
ook in een fractie van een seconde klaar 
met dit werk. 

Anders wordt het, wanneer we erg veel 
strings gebruiken d.m.v. de DIM-instructie 
(b.v. bij een database zoals de kaartenbak 
in MSX-Gids in nr. 7). Geven we b.v. op 
DIM O$(500) en vinden er veel string- 


manipulaties plaats met deze 0$’s, dan zal 
op een gegeven moment het geheugen vol 
raken en moet de computer het geheugen 
weer vrijmaken voor nieuwe strings. 

Daar er nu 500 strings opnieuw geplaatst 
moeten worden heeft de computer hier 
behoorlijk wat tijd voor nodig; de 
computer valt dus een tijdje 'stil' bij 
deze bewerking en is op geen enkele manier 
weer aan de gang te krijgen of te stoppen. 
Gewoon afwachten tot de processor klaar 
is. 

Het nu volgende stukje programma laat zien 
dat de inhoud van dezelfde variabele, 
ondanks een gelijke lengte, bij elke 
verandering toch op een ander adres wordt 
geplaatst. De oude inhoud van die 
variabele vormt nu de rommel (garbage) die 
later moet worden opgeruimd om weer ruimte 
vrij te maken voor nieuwe gegevens. Tevens 
is te zien dat inderdaad, na een paar keer 
weer op het oude adres wordt teruggekeerd. 
Hoe groter we de ruimte met CLEAR maken, 
hoe langer het duurt voordat de adressen 
weer opnieuw worden gebruikt. De computer 
maakt het geheugengebied eerst helemaal 
vol. 

10 CLEAR 10 
20 FOR 1=1 TO 20 
30 X$=CHR$ ( 65 ) 

40 X=PEEK (VARPTR (X$ ) +1) 

50 Y=PEEK (VARPTR (X$) +2) 

60 X=Y*256+X 
70 PRINT X 
80 NEXT 

Meteen verder met het volgende pro- 

grammaatje. Hiermee kunnen we de tijd 
meten, die de computer nodig heeft om de 
rommel op te ruimen. In dit programma 
worden dezelfde bewerkingen twee maal 

uitgevoerd. Tijdens de eerste keer heeft 
de computer voldoende ruimte om de strings 
weg te schrijven. Tijdens de tweede 
doorgang niet meer. Hier wordt dan de 
garbage collection routine aangeroepen. 
Tot slot wordt nog een keer een garbage 
routine geforceerd door de FRE("") 
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opdracht. Je zult zien dat de tijd van de 
tweede routine overeenkomt met die van de 
eerste routine plus de geforceerde garbage 
collection. Maken we de CLEAR ruimte 
krapper, dan kan in de tweede routine 
zelfs twee keer een garbage collection 
pauze optreden. Bij zeer krappe ruimte 
komt al een garbage collection pauze voor 
in de eerste routine en de tweede routine 
gaat dan wel heel erg lang duren omdat 
daar dan meerdere keren de rommel 
opgeruimd moet worden. 


10 CLEAR 1 1 00 : DEF I NT A-Z 
20 DIM 0$ (500) 

30 TIME=0:M=0 
40 FOR 1=1 TO 500 
60 0$ ( I ) = " A " 

70 0$ ( I ) =0$ ( I ) +CHR$ ( INT <26*RND ( 1 ) ) +6 
5) 

80 NEXT 
85 GOSÜB 1000 

90 PR INT: PR INT" EERSTE KEER*. “ ; 

100 PRINT USING"### MIN.";Mï 

115 PRINT USING"### SEC."-S' 

116 BEEP 

120 TIME=0:M=0 
130 FOR 1=1 TO 500 
150 0$ ( I ) =" A" 

160 0$(I)=0$(I)+CHR$(INT(26*RND(1> )+ 

170 NEXT 

175 GOSUB 1000 

180 PR INT SPRINT" TWEEDE KEER: "; 

190 PRINT USING"### MIN.";M; 

210 PRINT USING"### SEC.";S 
220 BEEP 
230 T I ME=0 
240 X=FRE ( " " ) 

245 GOSUB 1000 

270 PR INT SPRINT "GARBAGE COLL. TIJD:" 

* 

280 PRINT USING"### MIN.";M; 

290 PRINT USING"### SEC."*S' 

500 END 

1000 T=TIME 
1010 M=T/3000 
1020 S=T / 50-M # 60 
1050 RETURN 

1060 REM DEZE TIJDSBEREKENING KAN NI 
ET GEBRUIKT WORDEN VOOR TIJDEN LANGE 
R DAN 21 MINUTEN. TIME WORDT DAN NAM 
EL IJK WEER OP NUL GESTELD. 


Wanneer we in bovenstaande programma de 
CLEAR ruimte op 2300 zetten en de DIM en 
FOR/NEXT op 1000 dan wordt de eerste 
routine in ca. 3 seconden doorlopen en de 
tweede in ruim 19 minuten!! 

Nog een voorbeeld: CLEAR 6500, DIM en 
FOR/NEXT 2500 geven voor routine 1 ca. 9 
minuten en voor routine 2 ruim 50 minuten! 

NIET ALLEEN MSX 

Dit hele garbage verhaal geldt niet alleen 
voor de MSX, maar voor alle computers met 
BASIC. Om dit aan te tonen hebben we de 
routine met CLEAR 6500 en 2500 variabelen 
op de X'Press 16 ook laten draaien. De 
X'Press 16 heeft een veel snellere 


processor, dus de eerste routine wordt dan 
ook in minder dan 1 minuut doorlopen. De 
PC is dus bij dit soort bewerkingen 
ongeveer 10x zo snel als de MSX. De tweede 
routine duurde echter ruim 48 minuten. 
Slechts een fractie sneller dan de MSX. 
Garbage collection is dus een probleem bij 
alle computers onder BASIC en duurt bij 
alle computers lang! 

GARBAGE COLLECTION VOORKOMEN 

Helemaal voorkomen kunnen we dit probleem 
natuurlijk niet; eens moet de computer de 
oude variabelen wegwerken. Wel kunnen we 
zorgen dat dit zo min mogelijk gebeurt en 
liefst op momenten dat we dit zelf merken. 

De CLEAR ruimte moeten we altijd aan het 
begin van een programma opgeven. Bij b.v. 
een data-base met veel strings moeten we 
deze dan ook zo ruim mogelijk nemen. 

Een DIM opdracht hoeft niet altijd in het 
begin van een programma. Geef deze 
opdracht pas, als werkelijk met de strings 
moet worden gewerkt en laat deze DIM 
voorafgaan door FRE(""), waardoor de reeds 
gebruikte strings worden opgeruimd. De 
geDIMensioneerde strings komen dan in een 
geheel opgeruimd geheugen te staan. 

Gebruik zoveel mogelijk numerieke varia- 
belen (liefst integers) . Deze hebben een 
vaste lengte en hiervoor wordt geen 
garbage routine aangeroepen. 

Een goed (of slecht) voorbeeld voor deze 
garbage collection is het kaartenbak 
programma uit MSX Gids nummer 7. Hier 
worden de te sorteren gegevens (7 tekens) 
gekoppeld met de recordnummers (4 tekens) 
in een string (0$) . Na sortering liggen de 
strings op alfabetische volgorde en kunnen 
de records in deze volgorde ingelezen 
worden. Allemaal heel mooi, maar bij veel 
strings (b.v. meer dan 500) zit het 
geheugen al flink vol en tijdens het 
inlezen van de diverse records, om deze 
uit te printen, treedt op een gegeven 
moment de garbage collection routine in 
werking. De computer + de printer vallen 
een tijdje stil (hoe meer strings, hoe 
langer de onderbreking) . In dit programma 
kan de hele garbage collection worden 
voorkomen door alleen de sorteren tekens 
in een string te plaatsen en de 
recordnummers in integers. In de sorteer- 
routine moeten dan bij de SWAP-instructie 
niet alleen de stringpointers omgewisseld 
worden maar ook de integers. Na het 
sorteren kunnen dan, met de ERASE 
instructie, de strings worden gewist. De 
integers blijven over en van hieruit 
kunnen de records worden ingelezen. Geen 
garbage collection meer. 

Zit het geheugen echt propvol (en dat is 
bij de MSX zeker niet ondenkbaar) dan is 
het altijd beter om meerdere keren kleine 
groepen strings te verwerken dan in een 
keer een grote groep. Zelfs als dan nog 
garbage collection optreedt, gebeurt dit 
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veel sneller dan bij een groot bestand. 
Drie keer garbage collection bij 1000 
strings gaat aanmerkelijk sneller dan 1 
keer bij 3000 strings. Sneller is hier 
misschien toch niet zo goed op z'n plaats; 
minder langzaam is beter. 

ALS HET ECHT NIET ANDERS KAN 

Er zijn programma's denkbaar waarin zoveel 
stringmanipulaties plaatsvinden, dat we 
altijd met garbage collection geconfron- 
teerd worden. In zulke programma's kan met 
de FREC") -voortijdig- de garbage 
collection worden geforceerd met b.v. een 
melding op het scherm. Nu weten we in 
ieder geval waarom de computer stilstaat 
en wordt geram op het toetsenbord 
voorkomen. 

Helemaal voorkomen is ook mogelijk door de 
gegevens weg te POKEen in het geheugen. 
Strings hoeven dan niet te worden gebruikt 
en deze methode is zeer eenvoudig toe te 
passen met een FOR/NEXT lus, wanneer we 
werken met gegevens met vaste lengte. 
Werken we inderdaad met een vaste lengte, 
dan zijn deze gegevens ook in BASIC nog 
wel te sorteren. 


LEER, PROBEER 

EN PROGRAMMEER 

DEEL 1 : HET APERITIEF 

Onder de MSX-gebruikers bevinden zich veel 
mensen die hun huiscomputer , behalve als 
gereedschap voor spel en zaken, wensen te 
benutten als instrument om de program- 
meertaal BASIC onder de knie te krijgen. 

Vaak komt men op school of op het werk in 
aanraking met geautomatiseerde verwerking 
van gegevens. Niet zelden voelt een 
nietswetende gebruiker zich erg onzeker 
omdat hij of zij nauwelijks weet wat er nu 
eigenlijk achter het toetsenbord gebeurt 
met de ingevoerde gegevens. 

De oplossing voor dit steeds meer 
voorkomende probleem wordt gezocht in de 
huiselijke sfeer. Men koopt bij Japie om 
de hoek een computer, zoonlief versiert 
een kopie-handboek bij zijn schoolmaat je, 
buurman stelt zijn oude televisie ter 
beschikking, kortom : het feest kan 
beginnen ! 


MSX-2 


De bezitters van een MSX-2 kunnen gegevens 
ook wegschrijven (d.m.v. VPOKE) in het 
videogeheugen. Wanneer niet wordt gewerkt 
met de grafische schermen dan hebben we 
daar ruim 110K tot onze beschikking en 
houden het gehele RAM-geheugen vrij voor 
het programma. Als we nog even terug- 
blikken naar de kaartenbak uit nr.7 en we 
zouden hier het videogeheugen van de MSX-2 
gebruiken, dan kunnen we in dit bestand 
ca. 12000 records kwijt ( 12000 x 7 tekens 
+ 24000 bytes voor de recordnummers) . 

Ook zonder het garbage probleem is het 
zeer handig om dit videogeheugen te 
gebruiken. Wel is sorteren, selecteren 
e.d. -onder BASIC- bij dit soort grote 
bestanden niet meer te doen; dit gaat veel 
te veel tijd in beslag nemen. Dit soort 
werkzaamheden moet dan in machinetaal 
gebeuren. 

Alfred Debels. 



Dan pas blijkt dat het elektronische 
gevaar ook thuis op de loer ligt : zelfs 
een 'eenvoudig' huiscomputert je blijkt 
zichzelf niet uit de doeken te doen. Boos 
stapt de koper naar de winkelier, die hem 
gezegd had dat dit de koop van zijn leven 
zou worden. Verdrietig en vol medeleven 
legt deze de wanhopige gebruiker uit dat 
het niet zijn schuld is : "U had toch 
langer naar school moeten gaan, sorry 
hoor, daaaaaaaaaggg ". 

Het gevolg is duidelijk : de boeken 
verdwijnen in een diepe kast, de nieuwste 
versie van PACMAN komt er uit en de eens 
zo hoopvolle aankomend programmeur leeft 
zijn frustaties uit op geesten, bananen en 
powerpills : een droom is vernietigd ! 

Schaamt U zich maar niet : U bent niet de 
enige. Zelf heb ik meer dan eens de moed 
opgegeven, en ik ben dan ook een van de 
vele Pacman-specialisten. Toch boeide de 
taal BASIC en het programmeren in het 
algemeen mij zoveel dat ik regelmatig een 
nieuwe poging deed om de computer te 
begrijpen. Dat lukte me aardig, en wat nog 
leuker was : het ding ging mij zelfs 
begrijpen ! 

Al met al ben ik in computerland vreemde, 
leuke maar ook minder aangename zaken 
tegengekomen. Op het gebied van BASIC 
bijvoorbeeld, waar ik als het ware per 
ongeluk in beland ben. Je zal maar een 
broer hebben die een computer/rekenmachine 
van 10 bij 20 cm aanschaft, daarmee BASIC 
gaat programmeren en zijn jongere, 
nietswetende broertje ongewild meesleept 
in nachtenlange ontdekkingstochten in het 
binaire land. Op dat moment was vluchten 
al te laat, en achteraf bekeken was dat 
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maar goed ook. Want nergens had ik meer 
ervaring kunnen opdoen dan achter een 
eigen toetsenbord. Er zijn veel boeken 
verkrijgbaar, maar geen van deze pillen 
gaven mij ooit zo’n duidelijk inzicht als 
de computer zelf. 

Zo langzamerhand komen steeds meer mensen 
met problemen te zitten die iedere 
beginnend programmeur zal krijgen. Er 
worden nog steeds geen programmeurs 
geboren, iedereen zal door oefening iets 
op moeten bouwen. De eerste steen zou ik 
graag willen leggen met behulp van een 
cursus PROGRAMMEREN in BASIC. De nadruk 
ligt daarbij niet alleen op BASIC : de 

woorden zijn wel te leren, maar men moet 
ze ook in verband met andere dingen kunnen 
gebruiken. Daarom zal ook het PROGRAMMEREN 
op zich behandeld worden, als basis voor 
het werken met BASIC en in de toekomst 
eventueel met andere talen. 

In de eerste delen van de cursus zal ik 
ingaan op enkele aspecten van het gebruik 
van computers die in de meeste boeken over 
BASIC niet of bijna niet behandeld worden. 
Dat betekent dus dat er in eerste in- 
stantie niet naar specifieke BASIC regels 
gekeken zal gaan worden. In plaats daarvan 
zal ik eerst proberen uit te leggen wat 
een computer is, hoe een programma tot 
stand komt en wat U allemaal zou moeten 
doen voordat U op het toetsenbord van Uw 
computer begint met het intikken van de 
programma-regels . 

Zoals de titel van dit eerste deel reeds 
doet vermoeden ga ik deze keer een kleine 
inleiding geven, waardoor U hopelijk 
enigszins warm loopt voor het programmeren 
van Uw huiscomputer . Ook zonder dat U een 
dergelijk gevaarte in huis heeft kunt U 
iets leren over de mogelijkheden en niet 
in de laatste plaats de onmogelijkheden 
van een computer. De taal BASIC die ook 
behandeld gaat worden is wel het 

makkelijkst te leren als U in het bezit 
bent van een MSX-computer . Maar geen 
zorgen : zover zijn we nog niet ! 

Het woord computer is al zover ingeburgerd 
in onze taal dat we eigenlijk zelden 
stilstaan bij de vraag wat het nu 
eigenlijk betekent. Want weet U nu precies 
wat er zich afspeelt achter dat kunststof 
kastje met al die knoppen ? Natuurlijk 
lezen we allemaal wel eens die prachtige 
reklame-boodschappen waarin staat dat "ons 
nieuwe systeem werkt met 1 druk op de 
knop, en dat voor nog geen F 2000.- 
waarvoor we 512 KByte leveren met single 
sided floppy en 2.3 Mhertz CPU". 

De kreten zijn knap gevonden, maar nog 
altijd koopt een groot deel van het 
publiek zonder te weten wat een computer 
kan en niet kan. Meestal ten koste van 
portemonnee en humeur, maar de fabrikant 
is tevreden — 

Als we praten over een computer, dan 
kunnen we kortgezegd stellen, dat het een 
elektronisch apparaat is, dat snel en 
betrouwbaar gegevens kan verwerken. Die 


verwerking vindt plaats in de CENTRAL 
PROCESSING UNIT (CPU, Engels voor Centrale 
Verwerkingseenheid) . Deze CPU zorgt ervoor 
dat we gegevens kunnen invoeren, laten 
verwerken en uitvoeren in informatie die 
we nodig hebben. 

De CPU bestaat uit 3 delen : 

- het BESTURINGSORGAAN, van waaruit alle 

handelingen gestuurd worden die nodig 

zijn voor een juiste verwerking 

- het REKENORGAAN, waarin berekeningen en 
vergelijkingen plaatsvinden 

- het INTERNE GEHEUGEN, waarin we gegevens 
kunnen bewaren voor direkt gebruik. 

Verder vinden we in een computersysteem 
meestal de volgende onderdelen : 

- het INVOERMEDIUM , dat invoer van 

gegevens mogelijk maakt (bijv. een 

toetsenbord) 

- het BEDIENINGSMEDIUM , waarmee we de 

computer kunnen bedienen (bijv. een 

toetsenbord) 

- het EXTERNE GEHEUGEN, waar we gegevens 
kunnen bewaren die we niet direkt nodig 
hebben (bijv. een flexibele schijf) 

- het UITVOERMEDIUM, dat het systeem in 
staat stelt informatie leesbaar weer te 
geven (bijv. een beeldscherm) 

Welke handelingen verricht worden hangt af 
van de programmeur : hij of zij moet van 
te voren aangeven wat de computer met 
bepaalde gegevens moet doen. Zonder deze 
richtlijnen doet het apparaat niets anders 
dan stroom verbruiken. Het is slechts een 
dood apparaat, dat alleen opdrachten kan 
uitvoeren die door de mens gegeven worden. 

Een belangrijk voordeel ten opzichte van 
de meeste andere elektronische apparaten 
is de mogelijkheid om de computer voor een 
groot aantal doeleinden in te zetten. Het 
is een flexibel hulpmiddel dat met de 
juiste opdrachten vele soorten informatie 
kan bieden aan een willekeurige gebruiker. 

Om hen, die denken dat de computer een 
grote bedreiging is, enigszins gerust te 
stellen wil ik opmerken dat de computer 
lang niet alle menselijke handelingen kan 
verrichten, maar slechts een klein deel. 
Willen we het apparaat efficiënt gebruiken 
dan moeten we alleen denken in de richting 
van ROUTINEWERKZAAMHEDEN. Dat zijn die 
handelingen, waarvan je vooraf kunt 
vaststellen wat het resultaat zal zijn, 
ongeacht de persoon/computer die deze 
handelingen uitvoert. Hoe vaak de 
verwerking ook gestart wordt, altijd zal 
hetzelfde resultaat gegeven worden. 

Routinewerk kan exact omschreven worden. 
We kunnen dus precies uitschrijven hoe een 
bepaald probleem opgelost moet worden, 
welke gegevens nodig zijn, welke 
berekeningen moeten plaatsvinden, etc. 

Zo'n omschrijving noemen we een ALGORITME 
of PROCEDURE. Een procedure kan in de vorm 
van INSTRUKTIES (opdrachten) in de com- 
puter gezet worden. Een aantal instrukties 
te zamen noemen we een PROGRAMMA. 
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Een computer kan maar een bepaald aantal 
instrukties verwerken. Zijn INSTRUKTIESET 
is beperkt, maar meestal uitgebreid genoeg 
om vele verwerkingen goed en snel uit te 
voeren. De meeste huiscomputers, met name 
de MSX-1 en MSX-2 computers, beschikken 
over een ingebouwde set opdrachten die we 
als programmeur kunnen gebruiken : er is 
een PROGRAMMEERTAAL die de computer 
herkent. Een van de meest populaire talen 
is BASIC (Beginners All Purpose Symbolic 
Instruction Code) . Het is een taal die 
vaak onderschat wordt, met name door 
mensen die programmeren in talen als 
Fortran, Pascal en Cobol. Toch biedt BASIC 
in veel gevallen meer dan op het eerste 
gezicht opvalt en is het een leerzame taal 
voor beginners en gevorderden. Vandaar dat 
in de loop van deze cursus naast pro- 
grammeren in het algemeen ook dieper wordt 
ingegaan op BASIC, en dan vooral op 
Microsoft Basic, de taal die op de 
MSX-computers gebruikt wordt. 

Dit eerste deel is slechts een inleiding. 
In het volgende nummer van de Gids wil ik, 
samen met mijn kollega-programmeur Ina 
Stam, dieper ingaan op het tot stand komen 
van een programma, en het gebruik van 
constanten en variabelen als invoer- en 
uitvoergegevens . 

Graag tot de volgende keer ! 

Richard Altenburg 


===== WOORDENLIJST PROGRAMMEREN DEEL 1 ==== 


- ALGORITME : zie PROCEDURE. 

- BASIC : Beginners All purpose Symbolic 
Instruction Code, een programmeertaal. 

- BEDIENINGSMEDIUM : apparaat waarmee we 
een computer kunnen bedienen. 

- BESTURINGSORGAAN : deel van de cpu, dat 
de besturing van gegevens regelt in het 
geheugen en naar uitvoermedia. 

- CPU : Central Processing Unit, ofwel de 
plaats waar de eigenlijke verwerking van 
gegevens plaatsvindt. 

- EXTERN GEHEUGEN : een medium om gegevens 
vast te leggen voor later gebruik of als 
kopie. 

- INSTRUKTIE : opdracht aan de computer. 

- INSTRUKTIESET : het geheel van op- 

drachten in een computer. 

- INTERN GEHEUGEN : deel van de cpu, waar 
gegevens bewaard worden (ook het 
programma) voor direkt gebruik. 

- INVOERMEDIUM : apparaat dat invoer van 
gegevens in de computer mogelijk maakt. 

- PROCEDURE : een gedetailleerde omschrij- 
ving van een routinehandeling die we 
kunnen invoeren als instrukties. 

- PROGRAMMEERTAAL : een leesbare voorstel- 
ling van opdrachten die we aan een 
computer kunnen geven. 

- REKENORGAAN : deel van de cpu, waar 

berekeningen en vergelijkingen worden 
uitgevoerd. 


- ROUTINEWERK : handelingen die we exact 
kunnen omschrijven in een procedure, en 
die altijd hetzelfde resultaat geven. 

- UITVOERMEDIUM : apparaat, dat uitvoer 

van gegevens mogelijk maakt voor later 
gebruik of als leesbare informatie 
voorstelt. 


ZET HET OP DISK. . . 


Dit artikel gaat over het overbrengen van 
cassette software naar disk. Het aantal 
computerbezitters in MSX land die zich het 
gemak van een diskdrive kan veroorloven 
neemt -mede door de zakkende prijzen van 
deze apparaten- sterk toe. Veel van deze 
mensen spoeden zich na het aanschaffen van 
hun hartewens dan ook huiswaarts om de 
drive 'optimaal' te gaan gebruiken. 

Het aansluiten van een diskdrive levert 
gelukkig meestal niet veel problemen op. 
De bekendste drives (oa. SONY HBD-50) 
laten zich simpelweg met een kastje in een 
cartridge slot pluggen. Gevolg is wel dat 
je cartridge slot meteen vol is en je een 
andere rompack wel kunt vergeten, tenzij 
je computer met meerdere cartridge slots 
is uitgerust. Bovendien zit je, als je 
cartridge slot een beetje ongelukkig is 
geplaatst (bijvoorbeeld bovenop je 
computer) , steeds tegen een rechtopstaand 
kastje aan te loeren. Dit kan, vooral als 
je monitor/tv een beetje laag geplaatst 
is, letterlijk en figuurlijk 'scheve ogen’ 
opleveren. Ikzelf heb mij dan ook al 
herhaaldelijk afgevraagd waarom de 
fabrikanten van zulke kastcartridges niet 
een connector met een stukje lintkabel aan 
hun produkten maken, zodat je ze op enige 
afstand van je computer (het liefst niet 
in beeld) kan plaatsen. 

We vinden het probleem ook bij de 
interfaces van viditel en bijvoorbeeld een 
lichtpen. Het is dan ook zeer aan te 
raden, en prima mogelijk, om je drive aan 
te sluiten achterop de computer. Er 
bevindt zich hier meestal wel een 
expansion port met (helaas) meestal een 
exotische connector, die dezelfde signalen 
voert als het cartidgeslot. De reden voor 
de afwijkende connector is, dat elke 
fabrikant er telkens weer belang bij vindt 
(zelfs bij een standaard als MSX) toch 
zelf nog wat in de melk te brokkelen. Deze 
aansluitingen zijn, zo vermeld de 
bijgevoegde handleiding, alleen om 
randapparatuur van hetzelfde merk op aan 
te sluiten. Gelukkig maar dat in de MSX 
standaard een voorschrift voor de 
cartridgebus voorkomt, anders was de boot 
helemaal aan. 
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Het is dus ook wel begrijpelijk dat de 
fabrikanten van de diskdrives het 
cartridgeslot als aansluiting zijn gaan 
gebruiken terwijl dit eigenlijk niet als 
interf aceslot is bedoeld. 

Het cartridgeslot is voor zg. rompacks en 
het expansionslot voor het aansluiten van 
interfaces en diskdrives. 

Wie zijn cartridgeslot wil ontzien moet 
dus proberen de contraconnector te pakken 
te krijgen van de expansionport achterop 
en bovendien de connector die nu in het 
cartridgeslot zit. Een stukje lintkabel 
ertussen, meestal zijn de aansluitingen 
exact gelijk aan elkaar, en klaar. De 
aansluitingen van de expansionport zijn 
(gelukkig) meestal bijgevoegd in de 
technische handleiding. Ik heb mijn drive 
nu ook achterop de computer (MPC-100) 
aangesloten en alles werkt perfect. 


OPTIMAAL GEBRUIK? 


Zoals gezegd is het natuurlijk het mooist 
als je je drive optimaal in het computer- 
systeem kunt gebruiken. Het is vrij simpel 
om zelfgemaakte BASICfiles op schijf op te 
slaan en zelf enige eenvoudige BASIC 
programma's van cassette op disk te 
zetten. Het blijkt echter in de praktijk 
vaak onmogelijk om de geliefde software 
uit de cassettetijd zondermeer op disk te 
zetten. Dit betekent een grote belemmering 
van het gebruiksgemak omdat het erg jammer 
is om een kwartier te gaan zitten wachten 
tot de software van cassette in de 
computer is geladen, terwijl we ook een 
diskdrive tot onze beschikking hebben, die 
dit in enkele sekonden kan doen. Het is 
duidelijk dat we zo niet 'optimaal' van de 
drive gebruik maken. Wie niet voldoende 
vakkennis had om zelf de cassetteversies 
om te zetten naar disk moest zich er maar 
bij neerleggen. Dit is natuurlijk niet de 
oplossing en daarom in dit artikel een 
inleiding in de kunst van het aanpassen 
van software voor diskgebruik. Een kunst 
is het en er is ook niet gezegd, dat na 
het lezen van dit artikel meteen alle 
software naar disk kan worden weg- 
geschreven. Veel problemen eisen behalve 
een uiterst goede kennis van de Z80 
machinetaal een grondig hardware inzicht, 
waardoor het voor de leek niet mogelijk is 
ze op te lossen. Omdat de struikelblokken 
echter vaak hetzelfde zijn is de kans toch 
groot dat u na het lezen in staat zal zijn 
een 'optimaler' gebruik te maken van uw 
diskdrive. 


BASIC NAAR DISK 


De makkelijkste programma's om van 
cassette naar disk te schrijven zijn de 
BASICprogramma's. Deze programma's kunnen 
gewoon van cassette worden ingeladen met 
het commando CLOAD of LOAD"CAS:" waarna ze 


naar disk kunnen worden weggeschreven met 
het commando SAVE" — " . Problemen met pure 
BASICprogramma’s kunnen zich haast niet 
voordoen. Puur wil zeggen dat het 
BASICprogramma niet nog eens een stuk 
machinetaal inleest maar zelf werkt zonder 
extra programmablokken van cassette. 


BYTES NAAR DISK 


Hier beginnen de problemen. Voordat we in 
detail de meest voorkomende problemen het 
voetlicht zullen laten passeren, eerst een 
stukje 'memory management'. Hieronder 
verstaan we de indeling en het gebruik van 
het beschikbare geheugen (RAM) van de 
computer. Als er een diskdrive wordt 
aangesloten moeten we er namelijk rekening 
mee houden dat we minder geheugen tot onze 
beschikking hebben dan eerst, omdat de 
disk-drive software ook een gedeelte 
opeist. Deze ruimte kunnen we niet 
zondermeer gebruiken zonder dat er zich 
problemen voor doen. Simpelweg programma's 
in dit geheugengebied schrijven zal in de 
meeste gevallen de computer op tilt laten 
slaan. 

Het geheugengebied dat is gereserveerd 
voor de diskdrive strekt zich uit van 
ongeveer &HE000 t/m ongeveer &HF000. In 
dit gebied bevinden zich noodzakelijke 
variabelen voor de drive en de DMA-buffer 
waardoor de diskdata wordt doorgegeven. Er 
zitten wel wat ongebruikte stukjes in, 
maar die zijn moeilijk te gebruiken omdat 
we meestal een aaneengesloten gebied voor 
ons programma wensen. Het gebied hierboven 
(&HF001 t/m &HFFFF) kunnen we ook niet 
gebruiken omdat zich hier de systeem- 
variabelen en 'hooks' voor ons besturings- 
systeem bevinden. Het overschrijven van 
deze variabelen betekent bijna altijd een 
'crash' van het systeem. 

De zg. 'stack' is ook een probleem, de 
ruimte die hij inneemt varieert, maar ook 
hier geldt; overschrijven is crashen. De 
stack is niets anders dan een serie geheu- 
genplaatsen die gebruikt wordt om data en 
(subroutine) returnadressen in op te 
slaan. Hoe meer adressen er op een bepaald 
moment moeten worden 'onthouden' of in het 
algemeen: hoe meer de subroutines 'genest' 
zijn, des te meer geheugen is nodig om 
alles op te slaan. We zullen hier niet 
verder niet ingaan op de stack en de XZ0 
stackpointer , dat is meer iets voor een 
artikel over machinetaal, maar belangrijk 
is dat er rekening mee moet worden 
gehouden. Normaal staat de stack op adres 
&HE000 en zal zich in het geheugen iets 
naar beneden uitstrekken. We kunnen 
hierdoor de adressen direkt onder &HE000 
ook niet gebruiken zonder problemen. 

Uit het bovenstaande volgt meteen al het 
meest voorkomende probleem waar we op 
stuiten bij het op disk zetten van veel 
software. Het programma is te lang of 
maakt gebruik van de gereserveerde 
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adressen. Een stuk bytes (machinetaal 
programma) dat zich in het geheugen 
uitstrekt van bv. adres &H8200 tot &HE454 
zal niet zondermeer op disk kunnen worden 
gezet omdat de computer na het inladen 
meteen op hol slaat. Een gedeelte van het 
ingeladen programma is over de boven- 
genoemde adressen terecht gekomen en 
daardoor is het systeem vastgelopen. Het 
programma is dus te lang om in één keer te 
worden ingeladen. Het moet in twee stukken 
worden gebroken die apart worden inge- 
laden. De enige manier om dit te doen is 
het eerste stuk in te laden en dan te 
verplaatsen naar bijvoorbeeld &H0000. Dit 
stuk geheugen wordt vanuit BASIC niet 
gebruikt. Het aanspreken van dit stuk 
geheugen (&H000 t/m &H7FFF) en het 

verplaatsen van het eerste stuk kan met 
behulp van een simpel stukje machinetaal 
geschieden. Door het eerste stuk even 'weg 
te zetten' kunnen we nu het tweede stuk 
inladen, de stack goed zetten, het tweede 
stuk op z'n eigen plaats zetten, het 
eerste stuk terughalen en op zijn eigen 
plaats zetten en tenslotte het programma 
opstarten. 

Het klinkt behoorlijk ingewikkeld en je 
moet even je hersens erbij houden, maar in 
de praktijk valt het best mee. 

Het kan echter ook voorkomen dat het 

programma niet zo lang is maar wel over de 
gereserveerde geheugenplaatsen heenstaat. 
In zo'n geval kunnen we het programma op 
een andere plaats (lager) in het geheugen 
laden en daarna verplaatsen. We kunnen de 
gereserveerde adressen namelijk alleen 
niet gebruiken tijdens het laden/saven 
van/naar disk. Als alle 'disk aangaande' 
handelingen achter de rug zijn, kunnen we 
de adressen wel gebruiken. 

In het tweede deel -het deel waarin ik ook 
oplossingen zal geven voor enkele andere 
problemen- zal ik enige handige pro- 
gramma's beschrijven (met listing) die je 
veel werk uit handen kunnen nemen. Onder 
andere een programma dat een te lang stuk 
bytes automatisch splitst in twee delen, 
en deze delen, voorzien van de machinetaal 
ladertjes die ze in het niet gebruikte 
geheugengebied plaatsen, zelf naar disk 
wegschrijft. Ook programma's om andere 
laders, zoals "verplaats", "verplaats 
stack" etc., aan te maken zal ik aan het 
artikel toevoegen. 


TAPEDISK programma 


Hieronder volgen de listings van twee 
handige 'tools' oftewel gereedschappen die 
het overschrijven van tape naar disk en 
andersom vergemakkelijken. Het eerste heet 
TAPEDISK. Het is, zoals de titel doet 
vemoeden, hiermee mogelijk om programma's 
die gesaved zijn in het machinetaalformat 
(dus met BSAVE"CAS:naam" , begin, eind, 
exec.) op disk te zetten. Het is met dit 
programma niet mogelijk om een programma 
dat normaal over de gereserveerde adressen 
zou staan over te zetten. Alle andere 


byteblokken kunnen er meteen mee worden 
aangepakt. Het programma is helemaal in 
machinetaal geschreven en kan dus niet als 
BASIC worden ingetoetst. Om het in te 
voeren is een aparte hexloader opgenomen, 
(zie listing 1) Met behulp van deze loader 
moeten de bytes van listing 2 worden 
ingevoerd. Het invoeradres staat aan het 
begin al op &HDD00. Begin met het invoeren 
van de 9 eerste bytes (de hexadecimale 
getallen tussen de streepjes) . De puntjes 
op het beeld vergemakkelijken het 
invoeren. Nadat de bytes (gewoon achter 
elkaar, dus geen spaties nodig) zijn 
ingetoetst, kun je ENTER drukken. De 
hexloader berekent nu de checksom. In 
listing 2 zijn de checksommen achter 
iedere regel af gedrukt. Dit laatste getal 
hoeft dus niet te worden ingevoerd, maar 
is een extra controle methode om te zien 
of elke regel goed is ingevoerd. Als de 
checksom niet klopt kan de regel van 9 
bytes opnieuw worden ingevoerd. Het 
programma vraagt echter al om invoer voor 
de volgende regel. Je kunt 9 adressen 
terug gaan om alles nog eens in te voeren 
door een minteken in te voeren. Verder in 
het geheugen kan ook, met een plusteken. 
Als de laatste regel is ingevoerd stopt 
het programma, de machinetaal is nu in het 
geheugen 'gepoked'. Je doet er zeer 
verstandig aan om de machinetaal eerst te 
saven voordat je het uitprobeert. Als je 
toch fouten zou hebben gemaakt, is al het 
werk voor niets geweest. 

LISTING 1 


10 'program by A.van Del den 
20 'dit programma i s om het 
30 'geheugen in te toetsen. 

40 ' 

45 'MSX-2 MACHINES OPSTARTEN MET CTR 
L 

46 ' 

50 'hoort by: TAPEDISK 
60 ' 

65 CLEAR 500, ?<HDCFF 
70 SCREEN0: CLS: Q=9: KEYOFF 
80 PRINT" Invoer programma voor TAPE 
DISK, " : PR I NT " HEXADECIMAAL INVOEREN 
VAN" ; Q; "BYTES. " 

90 PRINT: PRINT" ’+’ i s" ; Q; "adressen v 
erder " 

100 PRINT"'—’ i s" : Q; "adressen terug" 
110 LOCATE0, 14: FORM=lTOQ: PRINT". ";: 
NEXT 

1 20 FORA=&HDD00TOS<HDF0ASTEPQ 

130 LOCATE0, 13: PRINT" Invoeradres: " ; H 

EX$ < A) 

1 40 LOC ATE0 , 1 5 : PR I NTSP ACE$ ( 40 ) 

1 50 LOCATE0 , 1 5 : L I NE I NPUT A* 

160 IFA$="-"THENA=A-Q 
170 I F A$= " + " THEN A= A+Q 
180 IFLEN <A$) < >Q*2THEN130 
190 CHECK=0 
200 FORB=0TOQ-1 

210 WRDE=VAL<"&H"+MID*(A$,B*2+1,2) ) 

220 CHECK=CHECK+WRDE 

230 POKE A+B , WRDE : NE X T 

240 LOCATE0 , 8 : PR I NT " Start: ";HEX$(A) ; 

" checksum: "; HEX$ (CHECK) ; " ” 

250 NEXT 
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LISTING 2 

DDOO C3— E9-DD-4E-42— 48-4A-44— 53 — 442 
DD09 42— 44— 4C— 54— 2 1 — 45— 4A— 54— 4C — 276 
DD 1 2 2E— 50— 57— 46— 53— 5 A— 2 1 -32-33 — 24E 
DD 1 B 2E-3A-2E-32-3A— 39-37 -OB—OE — 1 BB 
DD24 63-7A-2 1 -42-73-6F-70-76-65 — 36D 
DD2D 2 1 -77-62-6F-2 1 -45-66-6D-65 — 307 
DD36 66— 6F— OB—OE— 58— 62— 6 A— 75— 2 1 — 2A8 
DD3F 62-2 1 -6E-70-6E-66-6F-75-2F — 348 
DD48 2F-2F-2F— OE-O 1 -53-74-6 1 -72 — 236 
DD5 1 74-20-74-68-65-20-74-6 1 -70 — 33A 
DD5A 65-OD— OA-OA— O 1 -CD-E7-00-2 1 — 25C 
DD63 6B-DD-CD-B 1 -DD— C3-BB-DD-2A — 628 
DD6C 2A-20-43-6 1 -73-73-65-74-74 — 32 1 
DD75 65-20-65-72-72-6F-72-20-2A — 2F9 
DD7E 2A-0D-0A-0A-0 1 -CD-E7-00-2 1 — 22 1 
DD87 95— DD— CD— B 1 -DD-2 1 -DF-DD-CD — 677 
DD90 B 1 -DD-C3-BB-DD-2A-2A-20-42 — 49F 
DD99 6 1 -73— 69-63-20— 70-72— 6F— 67 — 378 
DD A2 72-6 1 -6D-20-2A-2 A-OD-OA-O A — 1 D5 
DDAB 53-6B-69-70-20-0 1 -7E-3D-C8 — 33B 
DDB4 3C-CD— A2— 00— 23— 1 8-F6-2 1 -CO — 3BD 
DDBD DD- 1 8-F 1 -44-45-46-55-53-52 — 3AF 
DDC6 3D-26-48-44-44— 30-30-3A-58 — 225 
DDCF 3D— 55— 53— 52— 28— 30— 29— O 1 -4C — 205 
DDD8 6F-6 1 -64-69-6E-67-20-00-00 — 292 
DDE 1 OO-OO-OO-OO-OD-OA-OA-O 1 -AF — D 1 
DDE A CD-C3-00-2 1 -03-DD-7E-3D-28 — 374 
DDF3 06— CD— A2— 00— 23— 1 8-F6-06-0A — 2B6 
DDFC 2 1 -FF— FF-2B-7C-B5-20-FB- 1 O — 4A6 
DE05 F6-2 1 -4D-DD-CD-B 1 -DD-CD-E 1 — 64A 
DEOE 00— DA— 5F— DD— 06— OA— C5— CD— E4 — 49C 
DE 1 7 00-C 1 -DA-5F-DD- 1 0-F6-FE-D0 — 5AB 
DE20 F5-2 1 — DF-DD— 06— 06— E5— C5-CD — 555 
DE29 E4-00-C 1 -E 1 -77-23- 1 0-F5-F 1 — 5 1 6 
DE32 C2-83-DD-2 1 — D7— DD-CD-B 1 -DD — 652 
DE3B CD-E 1 — 00— CD— E4— 00— DA— 5F— DD — 575 
DE44 F5-CD-E4-00-67-F 1 -6F-E5-CD — 6 1 F 
DE4D E4— 00— F5— CD— E4— 00— 57— F 1 -5F — 53 1 
DE56 E 1 — E5— D5— 22— CA— DE— ED— 53— D 1 — 676 
DE5F DE-CD-E4-00-F5-CD-E4-00-67 — 59C 
DE68 F 1 -6F-22-D8— DE-D 1 -E 1 -DA-5F — 623 
DE7 1 DD-E5-D5-CD-E4-00-D 1 -E 1 -DA — 6D4 
DE7A 5F-DD-77-CD— 20-00-28— 03-23 — 2EE 
DE83 1 8-ED-CD-E7-00-2 1 -CA-DE-ED — 56F 
DE8C 5B-CA-DE— CD— EO— DE— 2 1 -D 1 -DE — 65E 
DE95 ED-5B-D 1 -DE-CD-EO-DE-2 1 -D8 — 67B 
DE9E DE-ED-5B-D8-DE— CD-EO-DE-1 1 — 678 
DEA7 CO— DE— 2 1 -DF-DD-O 1 -06-00-ED — 46F 
DEBO BO-2 1 -BA-DE-CD-B 1 -DD-C3— BB — 642 
DEB9 DD— 42— 53— 4 1 -56-45-22-00-00 — 270 
DEC2 00-00— 00— 00— 22— 2C— 26— 48— OO — BC 
DECB 00— 00—00— 2C— 26— 48— 00— 00— 00 — 9A 
DED4 00-2C-26-48-00-00-00-00-0D — A7 
DEDD OA-OA-O 1 -D5-7A-CD-EB-DE-D 1 — 4CB 
DEE6 7B— CD— EB— DE— C9— F5— E6— FO— OF — 6B4 
DEEF OF-OF-OF-CD-FC-DE-F 1 -E6-0F — 4BA 
DEF8 CD-FC-DE-C9-FE-09-30-05-C6 — 572 
DFO 1 30-77-23— C9-C6-37-77-23-C9 — 3F3 
DFOA 00— 4F— 7B— FE— 03— 79— CO— 3A— 4 1 — 37F 


HERKEN HET TAPEDISK 


Zodra met de hexloader alle getallen zijn 
ingevoerd kan het eigenlijke machinetaal- 
programma worden gesaved met: 

BSAVE"TAPEDISK" , &HDD00 , &HDF0A , &HDDE9 

Om het programma te starten kan het best 
het kleine programmaatje van listing 3 
worden weggeschreven onder de naam 
"TAPEDISK. BAS" Dit programma roept op de 
juiste manier het machinetaal programma 
aan. Er is om problemen met een aantal 
MSX2 computers te voorkomen een poke 
opgenomen. Als het programma nog niet 
werkt is het raadzaam de computer te 
RESETten en dan de CONTROL toets in te 
houden tot het systeem is ópgestart. 


Hierdoor is meer stackruimte beschikbaar 
omdat een, eventuele, tweede drive niet 
wordt geinitialiseerd. Als beide 
programma's op disk staan kan het geheel 
worden opgestart met RUN"TAPEDISK.BAS". Na 
enige tijd verschijnt er 'start the tape' 
op beeld, de cassette kan nu gestart 
worden. Als de fluittonen op de band 
geweest zijn kan TAPEDISK met twee 
meldingen komen. Als het programma op 
cassette herkend is als BASIC programma 
dan wordt de gebruiker daarover gein- 
formeerd en stopt het programma, anders 
wordt het file ingelezen en daarna 
af gedrukt: 

BSAVE"naam" , &H (start) ,&H(eind) ,&H(exec) 
en: 

DEFUSR=&HDD00 : X=USR ( 0 ) 

Je kunt de naam waaronder het programma, 
dat net is ingelezen, nog wijzigen en 
daarna de cursor op de juiste regel zetten 
en ENTER drukken. Om TAPEDISK nog eens te 
RUNnen hoeft de cursor alleen maar naar de 
’defusr' regel te worden bewogen en ENTER 
worden ingedrukt. 

LISTING 3 

10 'loader voor tapedi sk 

14 » 

15 * MSX-2 MACHINES OPSTARTEN MET CT 
RL 

16 5 

20 POKE&HFFFF, ?<HAA: * voor sommige MSX 
2 comp. 

25 CLEAR 500 , &HDCFF 
30 BLDAD " T APÉD I SK " , R 

Let erop dat de lengte en de plaats van de 
byteblokken van cassette wel aan de 
bovengenoemde eisen moeten voldoen. 


het programa DISKTAPE 


Listing 4 geeft het tweede programma, 
DISKTAPE. Ook hier onthult de naam de 
funktie weer: het programma is bedoeld om 
programma's van diskette naar cassette te 
schrijven. Het programma is -in 
tegenstelling tot TAPEDISK- in BASIC 
geschreven en kan dus na het intoetsen 
direkt worden geSAVEd onder de naam 
’ DISKTAPE. BAS ' . Het programma geeft een 
overzicht van alle files die op de disk 
aanwezig zijn en vraagt dan: 'filenaam?'. 
Voer een filenaam in en het programma doet 
de rest. Als het een BASICprogramma is 
wordt de gebruiker hier weer van op de 
hoogte gesteld. Er is een extra routine in 
machinetaal aan DISKTAPE toegevoegd die er 
voor zorgt dat de drive na het inladen 
meteen afslaat en niet nog even door 
blijft draaien. Hierdoor hoeft de cassette 
bijna niet eens op pauze te worden gezet 
als je een aantal programmablokken achter- 
elkaar op cassette wil opnemen. Inmiddels 
heb ikzelf al heel veel plezier gehad van 
deze kleine copieer- of eigenlijk: 
transferhulpjes. 
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10 'door: 

20 ’Arnoud van Del den 
30 ' voor MSX-gids 
40 ’ 

50 GOSUB280: KEYOFF 
60 CLS s F I LEB : ONERRORGOTO300 
70 PR I NT : PR I NT : I NPUT " F I LE NAAM : " ; F 
1 $ 

80 OPEN FI$ AS #1 LEN=1 
90 FIELD #1,1 AS A$ 

100 GET 1, l ‘ : IFASC(A*X>8<HFE THEN 25 
0 


110 

120 

130 

140 

150 

160 

170 

IND: 

180 

190 

200 

210 


GET 1, 
GET 1, 
GET 1, 
GET l ', 
GET 
GET 
PRINT: 
"HEX* 
CLOSE 
BLOAD 
PRINT: 
DEFUSR 


1 , 

1 , 


2 :SA=ASC<A*> 

3 :SA=SA+ASC(A$) *256 

4 : EA=ASC ( A$) 

5 :EA=EA+ASC(A$) *256 

6 : EX=ASC < A$) 

7 :EX=EX+ASC<A*> *256 

PR INT "START : "HEX$<SA>" 
<EA>" EXEC: "HEX$<EX> 


FI*:FI$="CAS: "+FI$ 

PR INT "PRESS < RETURN >"; 
=?<HF9F5: X=USR<0> 


E 


220 A*= I NKEY$ : I F A$< >CHR* (13) THEN220 
230 BSAVE FI$, SA, EA, EX 
240 GOTO 60 

250 CLOSE: PR INT: PR INT "BAS IC PROGRAMM 
A" 

260 FOR X= ITO 1500: NEXT 
270 GOTO60 

280 F0RADRES=?<HF9F5T0S<HF9FF : RE ADW : PO 
KE ADRES, W: NEXT: RETURN 

290 DAT A6 , 255 , &HFB , ?<HC5 , &HCD , &H9F , &H 
FD , ?<HC 1 , ?<H 1 0 , &HF9 , Ê<HC9 


VOLGENDE KEER 


De volgende keer zal ik wat dieper ingaan 
op de verschillende (meest voorkomende) 
problemen die zich voordoen bij het 
overzetten van cassette software naar 
diskette. Natuurlijk worden er oplossingen 
en voorbeelden gegeven. Ook wordt er 
beschreven hoe de methoden die hierboven 
zijn besproken (verplaatsen, in stukken 
delen etc.) in de praktijk kunnen worden 
uitgevoerd. In de volgende delen zal ik 
ook de listing van het programma geven 
waarmee een te lang machinetaalprogramma 
van cassette automatich naar disk kan 
worden weggeschreven. Het op disk zetten 
van rompack’s zal in de toekomst ook 
besproken worden. Hierdoor zullen de 
spellen in de rompack m.b.v. enkele POKE's 

speelbaarder worden. Kortom Tot de 

volgende keer. Mocht je zelf vragen hebben 
schrijf dan naar postbus 287, 1850 AG 
HEILOO. De meest voorkomende problemen 
worden dan in het volgende artikel 
besproken. Persoonlijk beantwoorden van 
elke brief is natuurlijk uitgesloten. 

Groeten Arnoud 


300 Q=ERR : I FQ=6BTHENPR I NT : PR I NT " BEST 
AAT NIET..": CLOSE : RESUME260 
310 IFQ=55THENPR INT: PR INT "BESTAAT NI 
ET . . " : CLOSE : K I LLF I $ : RESUME260 
320 ERRORQ: END 



AUTO-FIRE KNOP 

Behalve de 'voetbalknie' en de 'tennis- 
arm' bestaat er tegenwoordig ook de 
joystick-pols . De ware videospelf anaten, 
die er alles voor over hebben om de 
vijandelijke vloot het verderf in te jagen 
zullen waarschijnlijk (althans in het 
begin) een pijnlijke duimspier hebben 
opgelopen van de vele kogels die ze 
moesten afvuren om het onheil af te 
wenden. Ikzelf vorm daarop weliswaar geen 
uitzondering, maar ik behoor tot diegenen 
die er van houden de computer het vuile 
werk op te laten knappen. Omdat mijn joy- 
stick niet standaard is uitgerust met een 
zg. auto-fire button, werd het tijd de 


soldeerbout weer eens op te stoken. In dit 
artikel beschrijf ik mijn bescheiden 
ontwerpje waarmee iedere simpele joystick 
met behulp van wat moderne elektronika is 
om te toveren tot een superkanon. Zo'n 
vaart als hierboven in de tekening zal het 
echter wel niet lopen, dus wees gerust. 

AUTO-VUUR KNOP? 

Wat is een auto-vuur knop en wat kun je 
ermee doen? Als we autofire vertalen krijg 
je zoiets als 'automatisch vuren' en dat 
is precies wat er met behulp van dit 
kleine schakelinget je mogelijk is. Bij de 
meeste spelprogramma's is het mogelijk een 
kogeltje of bommetje af te vuren wanneer 
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de rode knop op de joystick wordt 
ingedrukt. Soms snapt het programma dat je 
meerdere kogels achter elkaar wilt afvuren 
als je de knop langer ingedrukt houdt, 
maar meestal moet je voor ieder kogeltje 
dat je op de vijand wilt afvuren de knop 
indrukken. Dat geeft het programma z'n 
charme want als er teveel ruimteschepen op 
je afkomen moet je het afleggen omdat je 
duim het niet meer bij kan houden. Met een 
overspannen duim en een rokende stuurknup- 
pel ga je tenslotte tenonder. Al deze 
ellende is verleden tijd met een auto-fire 
knop! Denk echter maar niet dat het nu 
ploseling mogelijk is om ieder gewenst 
spel tot het bittere einde uit te spelen. 
De schakeling zorgt alleen voor wat meer 
ontspanning tijdens het spelen. Krijg je 
onverhoopt toch zin om alle opgekropte 
woede te uiten, dan kun je hem altijd nog 
uitzetten. De. schakeling doet niets anders 
dan de computer foppen. Als je de vuurknop 
indrukt, worden in snel tempo pulsen naar 
de computer gestuurd waardoor het net 
lijkt (voor het programma) alsof er 
inderdaad iemand zeer snel op de knop aan 
het drukken is. Het resultaat is dui- 
delijk; een reeks kogels wordt afgevuurd 
in plaats van een enkele kogel en de 
trefkans neemt daardoor toe. 

Het tempo waarin de kogels worden 
af gevuurd is uiteraard instelbaar, en dat 
is meestal niet het geval bij de joysticks 
met ingebouwde auto-vuur knop. Op een LED 
is bovendien afleesbaar hoe snel de 
schakeling de pulsen geeft en daarmee is 
het geheel prima instelbaar. 

De schakeling is echter in staat zo snel 
achter elkaar pulsen te geven dat de 
meeste spelprogramma' s het niet meer bij 
kunnen houden. Ik heb gemerkt dat het 
meestal niet mogelijk is om meer dan een 
bepaald aantal (meestal slechts twee!) 
kogels tegelijk in beeld te krijgen. Het 
programma heeft simpelweg niet meer 
variabelen geheugen gereserveerd om bij te 
houden waar bijvoorbeeld 5 kogels zich op 
het scherm bevinden. In de praktijk is dit 
meer dan voldoende, maar met zo'n snelle 
schutter kan het programma het niet meer 
aan. In zo'n geval kun je met de potmeter 
de snelheid van de pulsen aanpassen aan de 
maximale snelheid van het programma. 
Natuurlijk kun je de schakeling ook altijd 
op z'n 'snelst' zetten, hierdoor wordt er 
telkens als de software het weer aan ' kan 
een kogel afgeschoten. Er zijn namelijk 
zelfs programma’s waarbij je maar een 
enkele kogel tegelijkertijd op je scherm 
kunt krijgen. Als deze kogel van het beeld 
is, is je lanceerinrichting pas weer klaar 
voor gebruik en zal dan door de auto-vuur 
knop meteen weer vuren. 


HOE WERKT HET ? 

In figuur 1 is een schematische voor- 
stelling van een joystick getekend. 
Eigenlijk zijn er twee soorten joysticks. 
Joystick type A heeft slechts één 
vuurknop, of als er meer dan één vuurknop 
is, kan de software geen onderscheid maken 
tussen de verschillende knoppen. Joystick 
type B heeft twee onafhankelijke 
vuur knoppen. In de handleiding van de 
software die gebruik maakt van type B 
joysticks staat meestal vermeld dat type B 
moet worden aangesloten. Voorbeeld van een 
spel dat moet worden gespeeld met een type 
B stick is bijvoorbeeld NEMESIS. 
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In feite zitten er dus niets anders dan 
schakelaars in zo'n joystick. De duurdere 
typen hebben hier meestal microswitches 
voor. In figuur 2 zie je een stukje van de 
elektronika getekend, die in de computer 
zit om de joystick uit te lezen. Elke 
uitgaande signaallijn wordt kunstmatig op 
een 'hoog' niveau gehouden door een 
weerstand. Stel je nu eens voor dat je 
naar links stuurt, de derde schakelaar 
wordt dan gesloten. Hierdoor wordt het 
LINKS-signaal met de massa verbonden (de 
negatieve voedingsspanning) . Als de 
schakelaar open is, is de betreffende 
signaaldraad met de positieve pool van de 
voeding verbonden via een zg. pull-up 
weerstand van bv. lOkohm. Deze weerstand 
zorgt ervoor dat we twee duidelijk te 
onderscheiden toestanden krijgen. Namelijk 
ongeveer 5 volt (als we niet sturen) of 0 
(nul) volt als de schakelaar is ingedrukt. 


HET SCHEMA 

Het schema van de schakelipg is in figuur 
4 af geheeld. Het ontwerp is opgebouwd rond 
het IC CD4093. In dit IC zitten 4 Schmitt 
NANlTs. Rond n van de NAND's is een 
simpele a- stabiele multivibrator gemaakt. 
Deze oscillator vormt het hart van onze 
auto-vuur inrichting; hij zorgt voor de 
pulsen. Met potmeter P is de snelheid te 
regelen. Als je de oscillator wat wilt 
'temmen' vervang dan de elko van 100uF 
door een wat groter type van bijvoorbeeld 
220uF. Opvoeren van de snelheid kan ook, 
als je R2 kleiner maakt werkt alles wat 
sneller. De gegeven waarden voldoen in de 
praktijk prima; het geheel is instelbaar 
van redelijk tot flitsend snel. Wie iets 
langere pulstijden wil, kan door simpel 
experimenteren snel de gewenste waarden 
vinden. 


Als we dus helemaal niets met onze 
joystick doen dan zijn alle signalen 
'hoog' (ongeveer 5 volt) en als we een 
bepaalde schakelaar bedienen dan zal het 
overeenkomende signaalli jnt je 'laag' 
worden (naar nul volt dalen) . Onze 
computer kan deze twee toestanden, waarin 
elke schakelaar kan verkeren, lezen en het 
programma kan hier gebruik van maken om 
bijvoorbeeld een ruimtescheepje te be- 
wegen. 

Even terug naar de auto-vuur knop. De 
werking is nog even verduidelijkt met 
figuur 3. We zien hier twee grafieken, 
horizontaal is de tijd uitgezet. De 
bovenste grafiek toont de normale gang van 
zaken, op tijdstip T drukken we de vuur- 
knop in en het signaal gaat hierdoor van 
'hoog' naar 'laag'. De grafiek eronder 
laat zien wat er gebeurt met de auto-vuur 
knop. Op tijdstip T drukken we weer de 
knop in en nu worden er pulsen gege- 
nereerd, waardoor het net lijkt alsof er 
iemand druk aan het vuren is. De breedte 
van de pulsen (B) , en daarmee de snelheid 
waarmee ze elkaar afwisselen (de fre- 
quentie) kunnen we regelen met een 
draaiknop. Op die manier is de juiste 
instelling voor iedere toepassing snel te 
veranderen. 




F/G.3 


Het printontwerp van figuur 5 met de 
componentenopstelling (figuur 6) spreken 
voor zich. Door de geringe afmetingen is 
het printje vrijwel in iedere computer in 
te bouwen. Het is misschien zelfs mogelijk 
om het printje in de joystick in te 
bouwen, maar dit is niet noodzakelijk. In 
dit geval, of in het algemeen wanneer het 
schakelinget je buiten de computer is 
ondergebracht, moet er op worden gelet dat 
via het joysticksnoer ook de +5 Volt van 
de computer wordt toegevoerd. De computer 
voert deze spanning toe aan pennetje 5 van 
de joystick-stekker (zie figuur 7 en de 
tabel) . Op pen 9 vinden we de massa 
(ground) . Ook deze moet met de stekker 
kunnen worden af genomen. 

We hebben de +5 Volt en de massa nodig om 
ons schakelinget je te voeden. De meeste 
joysticks, die geen externe voedings- 
spanning nodig hebben, hebben hiervoor 
geen draden door het snoer lopen! We 
zullen dan twee extra draden moeten nemen, 
of het schakelinget je met een 9-Volts 
batterijtje moeten voeden. Wie de 
elektronika buiten de computer wil 
onderbrengen kan het best twee nieuwe 
stekkers kopen, namelijk een chassisdeel 
(male) 9-pens om op een kastje te 
monteren. Deze aansluiting kunnen we dan 
gebruiken om de joystick in te pluggen. De 
tweede stekker die we nodig hebben is een 
gewone joystickstekker , die we nu ook op 
onze stick hebben. Deze kun je van een 
oude joystick afknippen of los kopen (soms 
zelfs met snoer er al aan) . Het snoer dat 
aan deze stekker zit moet dus in ieder 
geval OOK de +5 Volt doorgeven. Pen 5 moet 
dus zijn aangesloten. Meestal is de RETURN 
leiding in de computer gewoon met massa 
verbonden en kunnen we deze dus als massa 
nemen. Als we dit snoer naar het kastje 
laten lopen, zijn we klaar. Er hoeft dan 
niet aan de joystick te worden geknutseld, 
en de computer hoeft ook niet open (handig 
als je nog garantie hebt). 
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BOUSEN EB AANSLUITEN 

Het bouwen zal in de praktijk geen enkel 
probleem opleveren. Wie een te hete 
soldeerbout heeft kan het IC maar beter in 
een voetje zetten. Dit is trouwens altijd 
aan te raden. Als het IC later nog eens 
stuk zou gaan is het gemakkelijk te 
vervangen. De onderdelen moeten volgens de 
componentenopstelling worden gemonteerd. 
Let op de polariteit van de elko. Omdat 
het printje universeel moest blijven zijn 
de LED, potmeter en aan/uit knop niet in 
het printontwerp meegenomen. Ze moeten met 
losse draadjes aan de print worden 
gesoldeerd als ze op het kastje zijn 
bevestigd. De schakelaar is van het 
dubbel-om type, als ook de voedings- 
spanning van de schakeling af moet, 
wanneer we hem niet gebruiken. Dit is 
uiteraard wel noodzakelijk als we het 
schema voeden vanuit een batterij , maar 
hoeft niet als we de voedingsspanning uit 
de computer betrekken. In het laatste 

geval kan de schakelaar dan van het 
enkel-om type zijn. Verdere aansluitingen 
zijn ook alweer erg simpel, alleen draadje 
6 van de joystick gaat via het printje. De 
potmeter en de LED worden volgens de 
componentenopstelling in de buurt van het 
printje gemonteerd. Wie een joystick heeft 
met een type B vuur knop, en deze ook 
automatisch wil laten vuren, moet het 
printje twee keer bouwen. Dit geldt 

natuurlijk ook als je twee joysticks wilt 
aansluiten. Als je oppast voor kort- 

sluiting en het IC niet verkeerd om zet, 
kan er vrijwel niets fout gaan en moet het 
meteen werken. Ik heb er nu al enige tijd 
veel plezier van en zou voor sommige 
video-games dit hulpmiddel niet meer 

willen missen. Veel plezier met het 
bouwen -en natuurlijk gebruiken- van de 
Auto-vuur knop! 

Groetjes Arnoud 
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TOPOGRAFIE 


Zeeland Noord-Brabant Limburg 


Beeldscherm: WIDTH 36 


1 ’ALBERT VU IJK COEVORDEN 1986 

2 KEYOFF 

4 60SUB 10000 
6 GOTO 3000 

8 •’ 

9 ’ HOOFDLUS 

10 SOUND 0,0: SOUND 1,4: SOUND 6,24 
20 SOUND 7 , &B 11110110: SOUND 8,16 

30 SOUND 12, 3: SOUND 11, 50: SOUND 13,1 
2 

40 CO=ST I CK ( BB ) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 
30, 140 

70 YA=YA-3: GOTO 150 

80 XA=XA+3: YA=YA-3: GOTO 150 

90 XA=XA+3: GOTO 150 

100 XA=XA+3: YA=YA+3: GOTO 150 

110 YA=YA+3: GOTO 150 

120 XA=XA-3: YA=YA+3: GOTO 150 

130 XA=XA-3: GOTO 150 

140 XA=XA-3: YA=YA-3: GOTO 150 

150 IF T I ME >=3000 THEN LINE < 17, 172) - 

( 255 , 1 82 ) , 7 , BF : GOTO 5000 

160 ÏF TI ME >2500 THEN AA=9 

170 TI=TI ME *.08533 

180 LINE(TI, 189)-(TI, 191) , AA 

200 PUT SPRÏTE 1, (XA-4,YA-4) , 15, 1 

220 PUT SPRITE 1 , <XA-4, YA-4) , 15, 2 

240 PUT SPRITE 1 , ( XA-4, YA-4) , 15, 3 

260 IF ABS (XA-X1X11 AND ABS (YA-Y1 

Xll THEN CIRCLE < X 1 , Y1 ) , 2, 7: PAINT ( X 

1 , Y1 ) ,7: CIRCLE (X1,Y1) , 2!, 4: PAINT (XI, 

Yl) ,4 

280 IF ABS (XA-X1X3 AND ABS <YA-Y1> 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 - n 

999 ' PLAATS GEVONDEN 

1000 CUR=T I ME 

1010 LINE (17, 172)-<255, 182) ,7,BF 
1020 FOR G=0 TO 7 : COLOR ,,G:NEXT 
1030 SC=SC+250 

1040 LINE (182, 32) -(232, 42) , 14, BF 
1050 PSET ( 1 84 , 34 ) , 1 4 

1060 COLOR 1 : PR I N t # 1 , US I NG " ###### " ; S 
C 

1070 AP= AP+ 1 : I F AP<8 THEN 3000 

1998 •' 

1999 •' 8 PLAATSEN GEVONDEN 

2000 SOUND 7,8<B1 11 11000 

2010 PLAY "T170V1 1 02L4CL8DEL4FGL2F . " , 
" T 1 7 0V 1 205L2C . L404BAG6 " , "R " 

2020 FOR F=1 TO 100: FOR G=1 TO 7 
2030 COLOR, ,G:NEXT:NEXT 
2040 BO= I NT < < 3000-CUR ) /50 ) 

2045 SOUND 13, 8: SOUND 12, 2: SOUND 1,4 
: SOUND 7, &B1 11101 10: SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE (182, 32) - (232, 42) , 14, BF 
2080 PSET < 184,34) , 14: CÓLOR 1 
2090 PR I NT # 1 , US I NG "######" ; SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0i 189) -(255, 191) ,7, BF 
2140 NI V=NI V+l : IF NIV>7 THEN 5000 
2150 GOSUB 63040 
2998 ? 


2999 •' PLAATS KIEZEN 

3000 I FN I V=0THENRESTORE4000 
3002 I FN I V= 1 THENRESTORE40 1 0 
3004 I FN I V=2THENRESTORE4020 
3006 I FN I V=3THENRESTORE4030 
3008 I FN I V=4THENRESTORE4040 
3010 I FN I V=5THENRESTORE4050 
3012 I FN I V=6THENRESTORE4060 
3014 I FN I V=7THENRESTORE4070 
3020 PNR=INT (RND (—TIME) *8) 

3040 B 1 $=STR$ ( PNR ) 

3060 FOR F=0 TO PNR 
3080 RE AD A$,X1,Y1 
3100 NEXT F 

3120 IF INSTR(B*,B1$)O0THEN3000 
3140 B$=B*+B1$ 

3160 X 1=X 1 / 1 . 2+15 

3180 PSET (17, 172) ,7: COLOR 1 

3190 PR I NT# 1 , "VLIEG NAAR: " ; A$ 

3200 T IME=CUR 
3220 GOTO 10 

3998 ’ 

3999 •' DATAREGELS MET PLAATSEN 

4000 DATA SCHOUWEN-DUIVELAND, 125,25, 
THOLEN , 1 60 , 60 , ST . PH I L I PSL AND i 1 65 ^ 40 ^ 
NOORD-BE VEL AND , 1 00 , 57 , ZU I D-BÈVEL AND , 
115,85, WALCHEREN , 65 , 75 , W . ZEEUWS-VL AA 
NDEREN ,55,120,0. ZEEÜWS-VL AANDEREN , 1 3 
5,135 

4001 * 

4010 DATA VL I SS I NGEN , 68 , 90 , M I DDELBUR 
G, 74, 76, TERNEUZEN, 109, 122, Z IERIKZEE, 
126,35, AXEL, 123, 140,GÖES, Ï20,76,THOL 
EN , i 75 , 69 , DOMBURG , 54 , 62 

4011 ’ ‘ 

4020 DATA HAAMSTEDE , 98 , 22 , VEERE ,81,6 
6, IERSEKE, 146, 80 , KRÜ INI NGÈN , 145, 92, B 
RÜINISSE, 156, 32, BROUWERSHAVEN, 125,15 
«HULST, 148, 1 39 , ÖOSTBURG , 52 , 126 

4021 •' 

4030 DATA ST. MAARTENSDIJK, 153, 64, KOR 
TGENE ,107,61, ARNEMU I DEN , 84 , 77 , WESTKA 
PELLE , 47 , 70 , BRESKENS ,64,106, SAS VAN 
GENT ,105,152, AARDENBÜR6 ,46,138, SLU I S 
,35, 130 
403 ï ' 

4040 DATA RENESSE, 102, 14, STAVENISSE, 
142,55, BATH ,175,102, PÈRKPOLDER ,140,1 
08 , GROÈDE , 56 , 110, ZOÜTELANDE, 55, 78, WE 
MELDINGE, 137,75, ZIJPE, 155,35 

4041 ’ 

4050 DATA ST . F’H I L I PSL AND , 1 68 , 42 , SCHE 
RPEN I SSE ,158,65, HANSWEERT , 1 40 , 90 , CL I 
NGE ,156,142, KOUDEKERKE , 64 , 82 , N I EÜWER 
KERK, 142,36,0UD-V0SSEMÈER, 173,69,B0R 
SSELÈ, 95, 97 

4051 ’ 

4060 DATA 'S HEER ARENDSKERKE , 1 09 , 80 
, ST . ANNAL AND ,157,51, HOEDEKENSKERKË , 1 
2 1 , 98 , W I SSEKÈRKE ,97,54, K APELLE ,132,8 
3, ZAAMSLAG, 123, 130, PHILIPPINE, 99, 138 
, BIERVLIET, 85, 124 

4061 5 

4070 DATA COL I JNSPLAAT ,114,62, OOSTER 
LAND, 1 55 , 35 , CADZ AND , 39 , 1 13^ IJZENDIJK 
E, 74, 127, SLUISKIL, 1 10, 135, ST. JANSTEE 
N, 141 , 145, * S HEERÈNHOÊK ,103,91, K AMPE 
RL AND, 90, 59 

4998 i 

4999 » EINDE SPEL 

5000 FOR F=1 TO 3: PUT SPRITE 1,(200, 
200) ,7, F: NEXT 

5005 IF NI V>7 GOTO 5020 

5010 LINE (6, 22) — (72, 32) ,14, BF 

5015 PSET (8,24) , 15: PRINT#1 , "TIJD OP! 

5020 SOUND 1,0: SOUND 9,0: SOUND 7,?<B1 
1111110 
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5025 FOR 6=1 TO 7: SOUND 8,15-G:F0R F 
=170 TO 255: SOUND 0, F: COLOR , ,G:NEXT 
: NEXT 

5030 SOUND 8,0 

5035 LINE (6, 22) -(72, 32) ,7, BF 

5040 L I NE ( 0 , 189) -(255, 191) ,7, BF 

5045 IF SC >HS THEN HS=SC 

5050 SC=0: NI V=0 

5100^OSUB 63040 

5110 X A= 1 25: YA=85 

5120 GOTO 6 

5998 ’ 

5999 ’ I NTRODUCT I E-TUNE 

6000 S0UND7 , &B 1 1 1 1 1 000 

600 1 A 1 *= " V8T 1 08O4L4 A05DLBCD04L2B— L4 
A05DGEFL8EDC04B— L4A05DL8CDL204B-L4AG 
E . L8FL2F . n 

60 1 0 A2*= " V6T 1 08O4L2FFL4EL2FL4B-GL2A 
L4GL2FFL4EFDC03B— L2A . ” 

6020 A3*= " V6T 1 08O3L4FB- AGCFB— G04C03F 
AO4C03FB— AGCF02B— 03C02C " 

6030 A4*= ” 02L4FA03C " 

6040 A5*="02L2F. " 

6050 PLAY Al*, A2*, A3*+A4* 

6060 PLAY Al*, A2*, A3*+A5* 

6070 B 1 *= "05L2AL4GFB-AL2GL4FEAGFL8GF 
EDL2C#L4DEL8EFGAGFEDC04B- " 

6080 B2*= ” 05R4L4CC#DFEL2DL4C04B— A05C 
#D04A6L2A. L4B-A05C#L2DR4" 

6090 B3*= " 03L4F02FED03DC02L2B-L4 AGFE 
DC02B- A03EFGA02AL203DL4E " 

6100 PLAY B1*,B2*,B3* 

6110 PLAY Al*, A2*, A3*+A5* 

6500 RETURN 

9998 ’ 

9999 ’ TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4: CLS 

10060 OPEN"GRP: " FOR OUTPUT AS#1 
10080 RESTORE 10450 

10090 SOUND 1,9: SOUND 13,8: SOUND 1 2 , 3 : S 

0UND7 , ?<B 1 1 1 1 0 1 1 0 : S0UND8 , 16 

10100 FOR F=62. 5 TO 18715 STEP 25 

10120 LINE ( 1 25 , 5 ) — ( F , 25 ) , 7 

10140 CIRCLE STEP (0,9) ,9,7 

10160 READ A* 

10180 PSET (F— 2, 30) , 4 
10190 COLOR 7 : PRINT#1 , A* 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
10260 CIRCLE STEP (0,9) ,9,9 
10280 READ A* 

1 0300 PSET ( F-2 , 75 ) , 4 
10310 COLOR 9: PRINT#1 , A* 

10320 NEXT F 

10340 FOR F=87. 5 TO 167.5 STEP 25 
10360 LINE (125,92)-(F, 115) , 11 
10380 CIRCLE STEP (0,9) ,9, 11' 

10400 READ A* 

1 0420 PSET ( F-2 , 1 20 ) , 4 
10430 COLOR 11: PRINT#1 , A* 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA Ti I,Ni6i, 1 i 9i 8, 6 
10460 PSET (66, 148) ,4' 

10470 COLOR 14: PRINT#1 , "— presenteer 
t -" 

10480 PSET (25, 165) ,4 

10485 COLOR 1 : PR I NT # 1 , " ZEELAND PER 
HELIKOPTER" 

1 0490 PSET ( 93 , 1 78 > , 4 
10495 COLOR 1 4 : PR I NT # 1 , " ( C ) 1986" 

10498 FDR F=300TO0STEP-1 : S0UND8, F/20 
: NEXT 

10500 FOR F=1 TO 1500: NEXT 

10999 ’ INSTRUCTIES 

11000 SCREEN 0 


11020 WIDTH 37 
11040 COLOR 1,5, 5: CLS 

11050 LOCATE 4 , 10: PR I NT "Wil je instr 
ucties? (J/N)" 

1 1 052 I *= I NKEY* : I F I *= " " THEN 1 1 052 
11054 I F I *= " N " OR I *= " n " THEN63000ELSE I 
F I *= " J " OR I *= " j " THEN 1 1 060ELSE 1 1 052 
11060 CLS: L0CATE4, 1 : PR I NTCHR* (175)+" 
ZEELAND PER HELIKOPTER "+CHR*(174) 
11080 LOCATE 4, 4: PRINT "HET DOEL VAN 
DIT SPEL IS HÈT SPELEND LER 

EN VAN PLAATSNAMEN IN DE PROV 

INC IE ZEELAND.” 

11100 LOCATE 2, 8: PRINT "Vlieg met je 
helikopter naar de acht gevraa 

gde plaatsen voordat de tijd om 

is. Houd de tijdbalk dus goed 

in het oog ! " 

11120 LOCATE 2, 13: PRINT "Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau." 

11140 LOCATE 1 2 , 1 7 : PR I NT " VEEL SUCCES 

I I I I» 


11160 LOCATE 4, 19: PR INT "Druk na het 
tekenen van de kaart: 

- spat i eb 

alk voor toetsen - vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2 ,0,0: C0L0R7 ,7,7: CLS 

63002 X*="" 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 
24,24,231,231,24,24,24,0,70, 108,32,4 

^*1 /| 98 0 

63005 FOR F=1 TO 3: FOR G=1 TO 8 

63006 READ X 

63007 X*=X*+CHR* ( X ) 

63008 NEXT G 

63009 SPRITE* (F) =X* 

63010 X*=”" 

63011 NEXT F 

63017 RESTORE 63031 

63018 COLOR 4 

63019 X 1=162: Yl=34 

63020 READ X2,Y2 

63021 IFX2=0ANDY2=0THEN63025 

63022 LINE (X 1/1 .2+15, Y1 )- (X2/1 .2+15, 
Y2) 

63023 SWAP X 1 , X2: SWAP Y1,Y2 

63024 GOTO 63020 

63025 RS=RS+ 1 : I FRS= 1 THEN63026ELSE I FR 
S=2THEN63027ELSE I FRS=3THEN63028ELSE I 
FRS=4THEN63030 

63026 X 1=140: Yl=52: RESTORE63032 : GOTO 
63020 


63027 X 1 = 1 59 : Y 1 =32 : RESTORE63033 : GOTO 
63020 

63028 X 1 = 1 80 : Y 1 = 1 20 : RESTORE63038 : GOT 
063020 


63030 PAINT (119,22) , 4: PAINT ( 148, 61 ) , 
4: PA INT ( 152, 39) ,4: PA INT (98, 57) ,4:PAÏ 
NT (110, 88) ,4: PAINT (60, 127) ,4 

63031 DATA 162,34,159,37,160,42,162, 
44, 166,45, 170,43, 173,44, 174,41,170,4 
0,169,37,162,34,0,0 

63032 DATA 140,52,139,55,148,63,153, 

70. 164.70. 168.69. 169.73. 176.75. 177.7 
0,180,63,174,55,174,52,170,49,160,49 
, 155,45, 150,47, 144,51, 140,52,0,0 

63033 DATA 159,32,144,28,141,19,135, 
16, 135, 11,127,13, 122, 10,115,12,110,1 
1, 101,9,86, 18, B6, 25, 92, 31, 96, 29, 96, 3 
8,90,42,89,50,90,42,96,38,96,29, 108, 
24, 111,27, 118,28; 122,39, 124,37 ' 

63034 DATA 125,38,123,41,126,42,116, 
50, 108,48, 104, 50, 93, 51,89,50; 84, 51, 8 

4. 54. 79.53. 77.55. 79. 53. 84.54.84.58.8 
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9,62,89,68,91,69,99,62, 103,63,112,62 
,115,65,117,63,118,67,115,67 ' 

63035 DATA 113,65,108,65,105,67,98,6 
7, 89,75, 76, 57,77,55,72,52,65, 52, 44,6 
7, 44, 72, 57, 83, 66, 93, 78, 92i 89^85!, 91 8 
6,85,92,88,94,91,94,94, 100,98, 100, 10 
6, 108,114, 107,116, 105, 121,106 

63036 DATA 125,94,134,90,146,97,147, 
100, 152, 104, 155, 103, 165, 106, 170, 103, 
178, 104, 181,108, 180,114; 182,114, 185, 
110,185, 100, 186,97,185,95,186,93,175 
,95, 173,93, 164,96, 155,91,149,79, 140, 
72, 128,69, 127,65 

63037 DATA 118,67,117,63,122,61,122, 
57, 118,56, 116,50, 126,42, 128,42, 130,4 
0, 133,44, 143,44, 154,40, 159,32,0,0 
6303B DATA 180,120,176,111,173,112,1 

75.118. 173.118.171.114. 169.114. 168. 1 
21,166, 119, 164, 120, 166^ 124, 164, 124, 1 

59.117. 154.115. 146.115. 1431 105. 133. 1 
03 , 131, 114, 1 28 , 113, 115, 121, 1 00 , 1 1 8 1 9 
9, 121,94, 120,84, 112,75, 109;69, 109,64 
, 103,56, 103 

63039 DATA 45,107,41,106,32,111,31,1 
17,34, 120,30, 126,30, 134,40, 145,46, 14 
7 , 58 , 1 46 , 57 , 1 35 , 60 , 1 37 , 63 , 1 34 , 67 , ï 35 
,68, 131,90, 141,97, 141, 9B, ï 43, ï 03, 143 
, 102, 154, 104, 158, 116, Ï57i 119i 154!, 121 
, 159, 140, 148, 150, 148, 168, 137, 180, 120 
, 0,0 


63040 AP=0:CUR=0: XA=125: YA=85: AA=1 : B 

ll II 

63060 COLDR , , 7 

63061 LINE (6, 6) - (64, 18) , 14, BF: PSET (8 
,8) , 14: C0L0R6:PRINT#1, "ZEELAND " 

63062 L I NE ( 1 82 , 6 ) — ( 232 , 16) , 14, BF 

63063 PSET ( 184, B) : COLOR 1 : PRINT#1 , "N 
IV: " ; US I NG " ## " ; N I V 

63065 LINE (182, 22) -(232, 42) , 14, BF 
63067 PSET (184, 24), 14 

63069 COLOR 1 : PR I NT# 1 , " SCORE : " : PSET ( 
184,34) , 14: PR I NT # 1 , US I NG " ###### " ; SC 

63070 LINE (182, 46) -(232, 66) , 14,BF:PS 
ET (184,48) , 14: PRINT#1 , "HOOGST ": PSET ( 
184,58) , 14: PR I NT # 1 , US ï NG " ###### " ; HS : 
COLOR 1 

63075 PSET (17, 172) ,7:PRINT#1, "DRUK S 
PAT I EBALK/ VUURKNOP . " 

63080 IF STRIG (0) =— 1 THEN BB=0 ELSE 
IF STRIG ( 1 ) =— 1 THEN BB=1 ELSE 63080 
63090 LINE (17, 172) - (255, 182) ,7,BF 
63100 RETURN 

63200 ’ MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV 



1 ’ALBERT VUIJK COEVORDEN 1986 

2 KEYOFF 

4 GOSUB 10000 
6 GOTO 3000 
8 

9 * HOOFDLUS 

10 SOUND 0,0: SOUND 1,4: SOUND 6,24 
20 SOUND 7 , &B 11110110: SOUND 8,16 

30 SOUND 12,3: SOUND 11,50 : SOUND 13,1 
2 

40 CO=ST I CK ( BB ) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70, 80, 90, 100, 110- 120, 1 
30,140 

70 YA=YA-3ï GOTO 150 

80 XA=XA+3: YA=YA-3: GOTO 150 

90 XA=XA+3: GOTO 150 

100 X A=XA+3: YA=YA+3: GOTO 150 

110 YA=YA+3: GOTO 150 

120 XA=XA— 3: YA=YA+3: GOTO 150 

130 XA=XA-3: GOTO 150 

140 XA=XA— 3: YA=YA— 3: GOTO 150 

150 IF T I ME >=3000 THEN LINE ( 17, 172) - 

( 255 , 1 82 ) , 7 , BF : GOTO 5000 

160 ÏF TI ME >2500 THEN AA=9 

170 TI=TI ME *.08533 

180 L I NE ( T I , 1 89 ) - ( T I , 191) , AA 

200 PUT SPRITE 1, (XA-4, YA-4) ,15,1 

220 PUT SPRITE 1 , ( XA-4^ YA-4) , 15, 2 

240 PUT SPRITE 1 , ( XA-4, YA-4) , 15, 3 

260 IF ABS (XA-XiXll AND ABS (YA-Y1 

Xll THEN CIRCLE ( X 1 , Y1 ) , 2, 7: PAINT ( X 

1,Y1) ,7: CIRCLE (X1,Y1> , 2, 4: PAINT ( X 1 , 

Y1 ) , 4 

280 IF ABS (XA-X1X3 AND ABS ( YA-Y1 ) 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 ’ 

999 ? PLAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE (17, 172)-(255, 182) ,7,BF 
1020 FOR G=0 TO 7: COLOR , ,G:NEXT 
1030 SC=SC+250 

1040 LINE (166, 2) -(240, 14) , 14, BF 
1050 PSET (168, 4) , 14 

1060 COLOR 1 : PR I NT # 1 , " SC : " ; US I NG " ### 
###" * SC 

1070* AP=AP+1 : IF AP<8 THEN 3000 

1998 

1999 ’ 8 PLAATSEN GEVONDEN 

2000 SOUND 7, 8<B1 111 1000 

20 1 0 PL AY " T 1 70 V 1 1 02L4CL8DEL4FGL2F . " , 
" T 1 70V 1 205L2C . L404BAGG " , "R " 

2020 FOR F=1 TO 100: FOR G=1 TO 7 
2030 COLOR, , G: NEXT : NEXT 
2040 BO= I N t '( ( 3000— CUR ) / 50 ) 

2045 SOUND 13, 8: SOUND 12, 2: SOUND 1,4 
: SOUND 7, S<B1 11 101 10: SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE (166, 2) -(240, 14) , 14, BF 

2080 PSET (168, 4), 14: COLOR 1 

2090 PR I NT # 1 , " SC : " ; US I NG "######" ; SC 

2110 NEXT F 

2120 SOUND 8,0 

2130 LINE (0, 189)-(255, 191) ,7,BF 
2140 NI V=NI V+l : IF NIV>6 THEN 5000 
2150 GOSUB 63040 

2998 ' 

2999 ’ PLAATS KIEZEN 

3000 I FN I V=0THENRESTORE4000 
3002 I FN I V= 1 THENRESTQRE40 1 0 
3004 I FN I V=2THENRESTORE4020 
3006 I FN I V=3THENRESTORE4030 
3008 I FN I V=4THENRESTORE4040 
3010 I FN I V=5THENRESTORE4050 
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3012 I FN I V=6THENRESTORE4060 
3020 PNR=INT(RND(-TIME) *B) 

3040 B1*=STR*(PNR) 

3060 FOR F=0 TO PNR 
3080 READ A*,X1,Y1 
3100 NEXT F 

3120 IF I NSTR ( B* ,B1$)< >0THEN3000 
3140 B*=B*+B1* 

3160 Yl=Yl*1.3-30 

3180 F'SET <17,1 72 ) , 7 : CDLOR 1 

3190 PRINT#1, "VLIEG NAAR : " ; A* 

3200 T I ME=CUR 
3220 GOTO 10 

3998 ’ 

3999 ' DATAREGELB MET PLAATSEN 

4000 DATA ’S-HERTOGENBOSCH, 150, 65, EI 
NDHOVEN, 178, 111, TILBURG, 126, 89, BRÉDA 
, 88, 85, ROOSENDAAL, 51 ,96, OSS, 176, 49, H 
ELMÓND ,194,104, BERGEN OP Z OOM ,32,1 05 

4001 ' ‘ 

4010 DATA OOSTERHOUT, 98, 74, STEENBERG 
EN , 33 , 87 , WAAL W I J K , 1 23 , 64 , GEERTRU I DEN 
BERG , 98 , 63 , GELDROP , 183, U5,VALKENSWA 
ARD, 171, 1 30 , DEURNE ,211, 106.UDEN, 188, 
68 

4011 ’ 

4020 DATA RAAMSDONK, 105, 64, GEMERT, 19 
6, 89, VEG HEL, 180, 77, ÖISTÈRWÏ JK, 139,86 
, BOXMEER, 128, 71, BOXTEL, 155, 84, GRAVE, 
200 ,51, DONGEN ,110,78 

4021 ' 

4030 DATA HEUSDEN ,131,56, VUGHT ,150,7 
1 , DINTELOORD, 39, 79, MOERDIJK, 71 , 64, AS 
TÈN, 206, 1 1 7 , CU IJK, 217, 56 , O I RSCHOT , 15 
1,99, KAATSHÈUVEL ,120, 70 

4031 ’ 

4040 DATA VOLKEL, 197,70, AARLE-R IX TEL 
, 1 9 1 , 98 , H I L VARENBEEK ,132,102, WOENSDR 
ÉCHT, 32, 117,ZUNDERT,74, 109, WÖUDRICHE 
M , 113, 42 , RAVENSTE IN, 190, 45, SCHI JNDEL 
, 167,76 

4041 ' 

4050 DATA WERKENDAM ,106,41, WOUW ,41,9 
9 , HALSTEREN ,30,1 00 , ÈTTEN-LÈUR ,71,90, 
RIJEN, 107, 83, GÏLZE, 108, 94, ST. ÖEDENRO 
DE ,170, 90 , BAARLE— NASSAU ,109,112 

4051 •’ 

4060 DATA VLIJMEN, 14 1,63, HELEN A VEEN, 
225, 120, LOON OP ZAND, 124, 76, OUDGASTE 
L , 49 , B5 , LAGE Z WALUWE , 8 1 , 64 , ST . M I CH I E 
LSGESTEL, 157 , 73, BLADÈL , 142, 125, BERGE 
YK, 160, 135 

4998 ' 

4999 ' EINDE SPEL 

5000 FOR F=1 TO 3: PUT SPRITE 1,(200, 
200) ,7, F: NEXT 

5005 IF NI V>6 GOTO 5020 
5010 LINE ( 94 , 86 ) - ( 1 68 , 98 ) , 1 4 , BF 
5015 PSET (96, 88) ,15: PRINT#1 , "TIJD OP 
1 »» 

5020 SOUND 1,0: SOUND 9,0: SOUND 7,&B1 
1111110 

5025 FOR G=1 TO 7: SOUND 8,15-G:F0R F 
=170 TO 255: SOUND 0,F:COLÖR ,,G:NEXT 
: NEXT 

5030 SOUND 8,0 

5035 LINE ( 94 , 86 ) — ( 1 68 , 98 ) , 4 , BF 

5040 LINE (0, 189) -(255, 191) ,7, BF 

5045 IF SOHS THEN HS=SC 

5050 SC=0: NI V=0 

5100 GOSUB 63040 

5110 XA=125:YA=85 

5120 GOTO 6 

599Q * 

5999 ’ I NTRODUCT I E-TUNE 

6000 S0UND7 , &B 1 1 1 1 1 000 

600 1 A 1 *= " V8T 1 08O4L4 A05DL8CD04L2B-L4 
A05DGEFL8EDC04B— L4A05DL8CDL204B— L4AG 


E . L8FL2F • " 

60 1 0 A2*= "V6T 1 08O4L2FFL4EL2FL4B— GL2A 
L4GL2FFL4EFDC03B-L2A . " 

6020 A3*= "V6T1 08O3L4FB- AGCFB-G04C03F 
A04C03FB- AGCF02B-03C02C " 

6030 A4*="02L4FA03C" 

6040 A5*="02L2F. " 

6050 PLAY Al*, A2*, A3*+A4* 

6060 PLAY Al*, A2*, A3*+A5* 

6070 B 1 *= "05L2AL4GFB-AL2GL4FEAGFLBGF 
EDL2C#L4DEL8EFGAGFEDC04B- " 

6080 B2*= "05R4L4CC#DFEL2DL4C04B-A05C 
#D04AGL2A. L4B-A05C#L2DR4" 

6090 B3*="03L4F02FED03DC02L2B-L4AGFE 
DC02B-A03EFGA02AL203DL4E " 

6100 PLAY B1*,B2*,B3* 

6110 PLAY Al*!, A2*, A3*+A5* 

6500 RETURN 

9998 ' 

9999 ’ TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4: CLS 

10060 OPEN"GRP: " FOR OUTPUT AS#1 
10080 RESTORE 10450 

1 0090 SOUND 1,9: SOUND 13,8: SOUND 1 2 , 3 : S 

OUND7,S<Bl 11 101 10: SOUNDS, 16 

10100 FOR F=62. 5 TO 187.5 STEP 25 

10120 LINE ( 1 25 , 5 ) — ( F , 25 ) , 7 

10140 CIRCLE STEP (0,9) ,9,7 

10160 READ A* 

10180 PSET (F-2,30) , 4 
10190 COLOR 7: PRINT#1 , A* 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
10260 CIRCLE STEP (0,9) ,9,9 
10280 READ A* 

1 0300 PSET ( F— 2 , 75 ) , 4 
10310 COLOR 9: PRINT#1 , A* 

10320 NEXT F 

10340 FOR F=87. 5 TO 167.5 STEP 25 
10360 LINE ( 125,92) - (F, 1 15) , 1 1 
10380 CIRCLE STEP (0,9) ,9, 11' 

10400 READ A* 

1 0420 PSET ( F-2 , 1 20 ) , 4 
10430 COLOR 11:PRINT#1,A* 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA T, I , N, G, 1 , 9, 8, 6 
10460 PSET (66, 148) ,4 

10470 COLOR 14: PRINT#1 , presenteer 
t -" 

10480 PSET (25, 165) ,4 

1 0485 COLOR 1 : PR I NT# 1 , " NOORD-BR AB ANT 
PER HELIKOPTER" 

1 0490 PSET ( 93 , 1 78 ) , 4 
10495 COLOR 14: PR I NT # 1 , " ( C ) 1986" 

10498 FOR F=300TO0STEP— 1 : S0UND8 , F /20 
: NEXT 

10500 FOR F=1 TO 1500: NEXT 

10999 ' INSTRUCTIES 

11000 SCREEN0 
11020 WIDTH 37 

11040 COLOR 1,5, 5: CLS 

11050 LOCATE 4, 10: PRINT"Wi 1 je instr 
uct i es? (J/N) " 

1 1 052 I *= I NKEY* : I F I *= "" THEN 1 1 052 
1 1 054 I F I *= " N " OR I *= " n " THEN63000ELSE I 
F I *= " J " OR I *= " j " THEN 1 1 060ELSE 1 1 052 
1 1 060 CLS : LOC ATE2 , 1 : PR I NTCHR* (175)+" 
NOORD-BRABANT PER HELIKOPTER "+CHR* 
(174) 

11080 LOCATE 2, 4: PRINT "HET DOEL VAN 
DIT SPEL IS HÉT SPELENDERW I 

JS LEREN VAN PLAATS- NAMEN IN D 

E PROVINCIE NOORD-BRABANT" 

11100 LOCATE 2, 8: PRINT "Vlieg met je 
helikopter naar de acht gevraa 
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gde plaatsen voordat de tijd om 

is. Houd de tijdbalk dus goed 

in het oog ! " 

11120 LOCATE 2, 13: PRINT"Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau." 

11140 LOCATE 1 2 , 1 7 : PR I NT " VEEL SUCCES 

III»» 

Ü160 LOCATE 4, 19: PR INT "Druk na het 
tekenen van de kaart: 

- spatieb 

alk voor toetsen - vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2 ,0,0: C0L0R7 , 7 , 7 : CLS 

63002 X$="" 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 
24,24,231,231,24,24,24,0,70, 108,32,4 

54 98 0 

63005 FOR F=1 TO 3:F0R G=1 TO 8 

63006 READ X 

63007 X$=X$+CHR$ ( X ) 

63008 NEXT 6 

63009 SPRITE* (F) =X$ 

63010 X*="" 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X 1=228: Yl=120 

63020 READ X2,Y2 

63021 IFX2=0ANDY2=0THEN63025 

63022 L I NE < X 1 , Y 1 * 1 . 3-30 ) - ( X 2 , Y2* 1 . 3- 
30) 

63023 SWAP X 1 , X2: SWAP Y1,Y2 

63024 GOTO 63020 

63025 PA I NT ( 1 70 , 1 00 ) , 4 

63026 DATA 22B, 120, 220, 108, 216, 86, 22 
5,88, 230 , 85 , 240 , 87 , 237 ; 74 , 23 1 , 69 , 232 
, 65,229, 65, 228,57,220, 55,219,50, 205, 
51,201,47 

63027 DATA 198,46,196,43,192,42,189, 
38, 180,37, 176,39, 172,37, 169,40, 164,4 
0, 162,38, 155,52, 148,55, 133,54, 129,55 
, 130,51 

63028 DATA 127,45,122,47,114,39,106, 
38,96,44,86,44,81,54,66,65,46,66,45, 
65, 40, 72, 29 , 7B, 20, 78, 19^81, 20, 89' 

63029 DATA 24,91,24,95,22,98,22,100, 
30, 107,30,114,27, 116,27, 126,35, 125,3 
6, 130,43, 130,47, 126,42,117,43,113,42 
,112 

63030 DATA 52 , 1 06 ,59,105,61,106,59,1 
12,60, 115,65, 114,72, 117,76, 116,76, Ï1 
2,87, 100,96, 105,95, 115,88, 115, 89, 118 
, 104, 1 18 

63031 DATA 107,120,117,110,116,106,1 
20, 103, 121, 106, 125, 105; 129, 114, 125, 1 
21 , 132, 128, 133, 136, 140, 135, 145, 13B, 1 
44, 146, 157, 143, 166, 145' 

63032 DATA' 169, 142, 173, 141,174, 138, 1 
78, 139, 183, 145, 183; 152, 186; 153, 191 ', 1 
51,192, 143, 196, 134,222, 126,228, 120,0 

63040 AP=0 : CUR=0 : X A= 1 25 : Y A=85 : AA= 1 : B 

<£— - II II 

63060 COLOR 1,, 7 

63061 LI NE <14, 14)-<88,24) , 14,BF:PSET 
(16, 16) , 14:PRINT#1, "N-BRABANT" 

63062 L ï NE ( 1 02 , 2 ) - ( 1 52 , 12) , 14, BF 

63063 PSET(104,4) -.COLOR 1:PRINT#1,"N 
IV: ":USING"##”:NIV 

63065 L I NE ( 1 66 ,2)— (240, 12) , 14, BF 
63067 PSET ( 168, 4) , 14 

63069 COLOR 1 : PRINT# 1 , "SC: ": USING"## 
####"*, SC 


6o070 L I NE ( 1 4 , 2 ) — ( 88 , 12) , 14,BF:PSET( 
16,4) , 1 4 : COLORB : PR I NT# 1 , "HS: "; USING" 
######». HS: COLOR 1 

63075 PSET (17, 172) ,7: PR INT#1, "DRUK S 
PATIEBALK/VUURKNOP; " 

63080 IF STRIG (0) =— 1 THEN BB=0 ELSE 
IF STRIG(1)=-1 THEN BB=1 ELSE 63080 
63090 L I NE ( 1 7 , 172) -(255, 182) ,7, BF 
63100 RETURN 5 

63200 •’ MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV 


Beeldscherm: WIDTH 36 


1 ’ALBERT VU IJK COEVORDEN 1986 

2 KEYOFF 

4 GOSUB 10000 
6 GOTO 3000 
8 ’ 

9 r HOOFDLUS 

10 SOUND 0,0: SOUND 1,4: SOUND 6,24 
20 SOUND 7 , &B 11110110: SOUND 8,16 

30 SOUND 12, 3: SOUND 11, 50: SOUND 13,1 
2 

40 CO=ST I CK ( BB ) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 
30, 140 

70 YA=YA-3: GOTO 150 

80 XA=XA+3: YA=YA— 3: GOTO 150 

90 XA=XA+3: GOTO 150 

100 XA=XA+3: YA=YA+3: GOTO 150 

110 YA=YA+3: GOTO 150 

120 XA=XA-3: YA=YA+3: GOTO 150 

130 XA=XA— 3: GOTO 150 

140 XA=XA-3: YA=YA-3: GOTO 150 

150 IF T I ME >=3000 THEN LINE < 17, 172) - 

(255, 182), 7, BF: GOTO 5000 

160 IF TI ME >2500 THEN AA=9 

170 TI=TI ME*. 08533 

180 LINE(TI, 189)-(TI, 191) , AA 

200 PUT SPRÏTE 1, (XA-4,YA-4) , 15, 1 

220 PUT SPRITE 1 ', ( XA-4, YA-4 ) , 15, 2 

240 PUT SPRITE 1 , ( XA-4i YA-4) , 15, 3 

260 IF ABS (XA-XiXU AND ABS (YA-Y1 

Xll THEN CIRCLE (XI , Y1 ) , 2, 7: PAINT (X 

1,Y1) ,7: CIRCLE <X1,Y1) ,2,4: PAINT (XI, 

Y1 ) , 4 

280 IF ABS (XA-X1X3 AND ABS (YA-Y1) 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 ’ 

999 ' PLAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE (17, 172)-(255, 182) ,7,BF 
1020 FOR G=0 tO 7: COLOR' , ,G: NEXT 
1030 SC=SC+250 

1040 LINE (182, 32) -(232, 42) , 14, BF 
1050 PSET (184, 34) , 14 ' 

1060 COLOR l:PRINt#l ,US ING "######» ;S 
C 

1070 AP=AP+1:IF AP<8 THEN 3000 

1998 •' 

1999 ’ 8 PLAATSEN GEVONDEN 

2000 SOUND 7 , &B 11111 000 

20 1 0 PL AY " T 1 70 V 1 1 02L4CL8DEL4F6L2F . " , 

" T 1 70 V 1 205L2C . L404BAGG" , "R " 

2020 FOR F=1 TO 100: FOR G=1 TO 7 
2030 COLOR, ,G: NEXT: NEXT 
2040 B0= I N t ( ( 3000— CUR ) / 50 ) 

2045 SOUND 13, 8: SOUND 12, 2: SOUND 1,4 
: SOUND 7, ?<B1 11 101 10: SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE (182, 32) -(232, 42) , 14, BF 
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2080 PSET <184,34) , 14sC0L0R 1 
2090 PR I NT # 1 , US I NG "######" ; SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE <0, 189) -(255, 191) ,7, BF 
2140 NI V=NIV+1 ■ IF NIV>5 THEN 5000 
2150 GOSUB 63040 

2998 

2999 ’ PLAATS KIEZEN 

3000 I FN I V=0THENRESTORE4000 
3002 I FN I V= 1 THENRESTORE40 1 0 
3004 I FN I V=2THENRESTORE4020 
3006 I FNI V=3THENRESTORE4030 
3008 I FN I V=4THENRESTORE4040 
3010 I FN I V=5THENRESTORE4050 
3020 PNR= I NT ( RND ( -T I ME ) *8 ) 

3040 B1S=STRS(PNR) 

3060 FOR F=0 TO PNR 
3080 RE AD AS, X 1 , Y1 
3100 NEXT F 

3120 IF I NSTR ( BS , B 1 $ ) < >0THEN3000 

3140 BS=BS+B1S 

3160 X 1=X 1 / 1 . 2+10 

3180 PSET (17, 172) ,7; COLOR 1 

3190 PRINT#1, "VLIEG NAAR: " ; AS 

3200 TIME=CUR 

3220 GOTO 10 

3998 ’ 

3999 J DATAREGELS MET PLAATSEN 

4000 DATA MAASTR I CHT , 64 , 64 , VENRA 1,15 
5 , 55 , HEERLEN , 1 0 1 , 55 , VENLO ,180,89, ROE 
RMOND , 157, 126, WEERT , 120, 1 13, GÈLEÈN, 8 
2, 39, SITTARD, 86, 34 ' 

4001' ’ 

4010 DATA HOENSBROEK , 94 , 48 , MOOK , 1 42 , 

7, VAALS, 106, 79, BEEK, 76, 45, STEIN, 74,3 

8, I JSSELSTEÏN, 144, 63, ECHT', 141 , 144, KE 
RKRADE , 114,61' 

4011 ? 

4020 DATA MAASBRACHT, 144, 134,B0RN, 13 
4, 1 58 , NEDERWEERT , 125, 105, VALKENBURG, 
82,62,EIJSDEN,69,78, VLODROP, 167, 138, 
AMÈR I CA , 1 57 , 74 , BRUNSSUM ,101,43,' 

4021 ' 

4030 DATA GENNEP, 155, 18, MAASBREE, 165 
, 90 , TEGELEN ,176,94, HORST ,164,71, SWAL 
MEN, 164,1 17, THORN, 139, 130, TRÈEBÈEK, 9 
8,45, SCH AESBERG ,106,51 
4031' ' 

4040 DATA SUSTEREN, 138, 153, STAMPROY, 
124, 124, NEER, 160, 1 10, SIMPEL VELD, 101, 
65 , EPEN ,94,79, MARGRATEN , 80 , 70 , WÉSSEM 
, 142, 131, MÈERSSEN ,74,56 

4041 •’ 

4050 DATA GULPEN, 90, 70, HEER, 70, 66, SP 
EKHOL Z ERHE I DE , 1 06 , 60 , BERGEN , 1 65 , 40 , H 
ERKENBOSCH, 165, 1 3 ï , HÈERLERHÈ I DE , 100, 
50 , P ANN I NGÈN , 1 54 , 98 , HE YTHU I SEN , 1 43 , 1 
12 

4998 •’ 

4999 ’ EINDE SPEL 

5000 FOR F=1 TO 3: PUT SPRITE 1,(200, 
200) ,7, F: NEXT 

5005 IF N I V >5 GOTO 5020 

5010 LINE (14, 94) -(80, 104) , 14, BF 

5015 PSET (16,96) , 15: PR I NT# 1 , "TIJD OP 

i ii 

5020 SOUND 1,0: SOUND 9,0: SOUND 7,$<B1 
1111110 

5025 FOR G=1 TO 7: SOUND 8,15-G:F0R F 
=170 TO 255: SOUND 0,F:COLÖR ,,G:NEXT 
: NEXT 

5030 SOUND 8,0 

5035 LINE ( 1 4 , 94 ) — ( 88 , 1 04 ) , 7 , BF 
5040 L I NE ( 0 , 189) — (255, 191) ,7,BF 
5045 IF SOHS THEN HS=SC 
5050 SC=0: NI V=0 
5100 GOSUB 63040 


5110 X A= 1 25 : YA=B5 
5120 GOTO 6 

5998 ’ 

5999 ’ I NTRODUCT I E-TUNE 

6000 S0UND7 , &B 1 1 1 1 1 000 

600 1 A 1 S= " V8T 1 08O4L4 A05DL8CD04L2B-L4 
A05DGEFL8EDC04B— L4A05DL8CDL204B-L4AG 
E . L8FL2F . 11 

60 1 0 A2S= " V6T 1 08O4L2FFL4EL2FL4B— GL2A 
L4GL2FFL4EFDC03B-L2A. " 

6020 A3S= " V6T 1 08O3L4FB— AGCFB— G04C03F 
A04C03FB- AGCF02B-03C02C " 

6030 A4S= " 02L4F A03C " 

6040 A5S="02L2F. " 

6050 PLAY AIS, A2S, A3S+A4S 
6060 PLAY AIS, A2S, A3S+A5S 
6070 B1S=" 05L2AL4GFB- AL2GL4FEAGFL8GF 
EDL2C#L4DEL8EFGAGFEDC04B- " 

6080 B2S= " 05R4L4CC#DFEL2DL4C04B- A05C 
#D04AGL2A. L4B-A05C#L2DR4” 

6090 B3S= " 03L4F02FED03DC02L2B-L4 AGFE 
DC02B-A03EFGA02AL203DL4E " 

6100 PLAY BIS, B2S, B3S 
6110 PLAY AIS, A2S, A3S+A5S 
6500 RETURN 

9998 ’ 

9999 ' TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4: CLS 

10060 OPEN *' GRP :"' FOR OUTPUT AS#1 
10080 RESTORE 10450 

1 0090 SOUND 1,9: SOUND 13,8: SOUND 1 2 , 3 : S 

0UND7 , &B1 1110110: S0UND8, 16 

10100 FOR F=62. 5 TO 187.5 STEP 25 

10120 LINE ( 125, 5) - (F , 25) ,7 

10140 CIRCLE STEP(0,9) ,9,7 

10160 RE AD AS 

10180 PSET (F-2,30) ,4 

10190 COLOR 7 : PRINT#1 , AS 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
10260 CIRCLE STEP (0,9) ,9,9 
10280 READ AS 
1 0300 PSET ( F-2 , 75 ) , 4 
10310 COLOR 9: PRINT#1 , AS 
10320 NEXT F 

10340 FOR F=87. 5 TO 167.5 STEP 25 
10360 LINE (125,92)-(F, 115) , 11 
10380 CIRCLE STEP (0,9) ,9, 11 
10400 READ AS 
1 0420 PSET ( F-2 , 1 20 ) , 4 
10430 COLOR 11: PR I NT # 1 , AS 
10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA T, I,N,G, 1 , 9 , 8 , 6 
10460 PSET <66, 148) ,4' 

10470 COLOR 14: PRINT#1 , "- presenteer 
t -" 

10480 PSET (25, 165) ,4 

10485 COLOR 1 : PR I NT # 1 , " LIMBURG PER 
HELIKOPTER” 

1 0490 PSET ( 93 , 1 78 ) , 4 
10495 COLOR 14: PR I NT # 1 , " ( C ) 1986" 

10498 FOR F=300TO0STEP— 1 : SOUNDS, F/20 
: NEXT 

10500 FOR F=1 TO 1500: NEXT 

10999 5 INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 
11040 COLOR 1,5, 5: CLS 

11050 LOCATE 4,10: PRINT"Wi 1 je instr 
ucti es? (J/N)" 

11052 I S= I NKEYS : I F I S= " " THEN 1 1 052 
1 1 054 I F I S= " N " OR I S= " n " THEN63000ELSE I 
F I S= " J " OR I S= " j "THEN 1 1 060ELSE 1 1 052 
11060 CLS: L0CATE4, 1 : PRINTCHRS ( 175) +" 
LIMBURG PER HELIKOPTER "+CHR$(174) 
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11080 LOCATE 4, 4 SPRINT " 
DIT SPEL IS HÉT 
EN VAN PLAATSNAMEN 
INC IE LIMBURG." 

11100 LOCATE 2, 8: PRINT » 
helikopter naar de 
gde plaatsen voordat 
is. Houd de tijdbalk 
i n het oog ! " 

11120 LOCATE 2, 13: PRINT" 
tste plaats bereikt 
op een hoger niveau. " 
11140 LOCATE i2, 17: PRINT 

iii" 


'HET DOEL VAN 
SPELEND LER 
IN DE PROV 

Vlieg met je 
acht gevraa 
de tijd om 
dus goed 

Nadat de ach 
is, kom je 

"VEEL SUCCES 


11160 LOCATE 4,19: PR INT "Druk na het 
tekenen van de kaart: 

- spat i eb 

alk voor toetsen - vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2 ,0,0: C0L0R7 , 7 , 7 : CLS 

63002 X$="" 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 

24.24.231.231.24.24.24.0. 70. 108.32.4 

54 98 0 •••.?? 

63005 FOR F=1 TO 3:F0R G=1 TO 8 

63006 READ X 

63007 X*=X$+CHR$(X) 

63008 NEXT G 

63009 SPRITE$(F)=X$ 

63010 X$=“" 

63011 NEXT F 

63017 RESTORE 63031 

63018 COLOR 4 

63019 Xl=143: Yl=3 

63020 READ X2,Y2 

6302 1 I F X 2=0 AND Y2=0THEN63025 

63022 L INE (X 1 /l. 2+10, Y1)-(X2/1. 2+10, 
Y2) 

63023 SWAP XI, X2: SWAP Y1,Y2 

63024 GOTO 63020 

63025 RS=RS+ 1 : I FRS= 1 THEN63026ELSE I FR 
S=2THEN63030 

63026 X 1 =89 : Y 1 =25 : RESTORE63034 : G0T06 
3020 

63030 PAINT (140, 110) , 4: PAINT (85, 55) , 
4: LINE (55, 25) - ( 1 15, 85) , 4, B: L INE (90, 2 
5 ) — ( 90 , 0 ) , 4 ! L I NE- ( i 75 ,0) ,4:LI NE- ( 1 75 
, 165) ,4: LINE- (90, 165) , 4: LINE- (90, 85) 

5 4 

63031 DATA 143,3,146,9,150,11,164,14 
, 162,23, 172,28, 170,37, 185,60, 185,80, 

188.89. 167. 114. 168. 118. 167. 125. 170. 1 

30. 178. 123. 180. 126. 177. 129. 179. 132. 1 
69, 138, 168, 142 

63032 DATA 155,151,153,158,149,158,1 
46, 153, 141,156, 143, 165, 125, 165^ 127, 1 
62, 125, 159, 127, 152, 130, 154; 132; 148, 1 
31 , 146, 136, 146, 136, 144, 133, 143; 138, 1 
34, 136, 131,129, 133, 127, 126 

63033 DATA 1 13, 127', 1 12, 124, 101 , 1 19, 1 
09, 116, 109, 108, 115,99, 140,93, 149,85, 

140.70. 140.62. 136.48. 146.52. 158.48. 1 
6w>,vjl , 167 , 50 , 1 55 , o* 1 , 1 55 , 25 , 1 52 , 25 ,15 

2. 16. 142. 14. 139.8. 140.4. 143.3.0. 0' 

63034 DATA 89,25,91,30,90,35,93,38,9 

9,35, 108,36, 106,40, 108,45, 115,48,113 
,52,118,57,116,64, 110,63, 108,65, 109, 
68, 107,72, 104,71,103,73,110,79, 109,8 
2 

63035 DATA 100,81,97,83,92,83,90,80, 

79, 81 , 75, 77, 72, 81 i 64; 82; 78, 60, 70, 

59, 58, 65, 50, 69, 51, 73, 41, 6B; 42, 75, 31, 

63040 * AP=Êh CUR'Ï© : X A= 1 25 : YA=85 : AA= 1 : B 

^ — ll li 

63060 COLOR , , 7 


6 I? 6 L LINE<6 ’ 6)-(72 ’ 16) » 14, BF: PSET (8 
,8) , 1 4 : C0L0R6 : PR I NT # 1 , "LIMBURG" 

63062 LINE (182, 6) -(232, 16) , 14, BF 

63063 PSET <184, 8) : COLOR 1:PRINT#1,"N 
IV: " ï US I NG " ## " ; N I V 

63065 LINE (182, 22) -(232, 42) , 14, BF 
63067 PSET (184, 24) , 14 * 

63069 COLOR 1 : PRINTT#1 , "SCORE: ": PSET ( 
184,34) , 1 4 : PR I NT # 1 , US ï NG " ###### " ; SC 
6^.070 LINE (7, 129) -(65, 149) , 14,BF:PSE 
T (8, 130) , 14: PRINT#1 , "HOOGStE"' 

63072 PSET (8, 140) , 14: COLOR 6:PRINT#1 
, US I NG "####### "-HS: COLOR 1 
63075 PSET(17, 172) ,7:PRINT#1, "DRUK S 
PAT I EBALK/ VUURKNOP. " 

63080 IF STRIG (0) =— 1 THEN BB=0 ELSE 
IF STRIG<1)=-1 THEN BB=1 ELSE 63080 
63090 LINE (17, 172) -(255, 182) ,7,BF 
63100 RETURN 

63200 » MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV 


FOUTEN 

EN 

FOUTMELDINGEN 


Bij de enquêteformulieren zaten diverse 
klachten over oude programma's die niet 
zouden werken en volzitten met 
foutmeldingen. Veel van deze mensen 
wachten -tevergeefs- op correcties op deze 
programma's want alle programma's in de 
MSX-Gids zijn goed; d.w.z. ze bevatten 
geen foutMELDINGEN. Iedereen die met 
foutmeldingen (SYNTAX ERROR, OUT OF DATA, 
ILLEGAL FUNCTION CALL enz.) geconfronteerd 
wordt zal zelf op zoek moeten gaan naar de 
intikfout. Slimme lezers gebruiken 
uiteraard het Listing controle programma 
dat in elke Gids staat. De correcties die 
we in de Gids plaatsen zijn wijzigingen 
die betrekking hebben op de werking van 
het programma, maar geven géén oplossing 
voor de foutmeldingen. Dit zijn bijna 
altijd intikfouten en deze zullen zelf (of 
met behulp van het controleprogramma) 
opgezocht moeten worden. Bij gebruik van 
dit controleprogramma wel even het 
volgende in de gaten houden: Het 
ingetoetste programma meteen wegschrijven 
naar disk of tape en dan meteen testen. 
Niet eerst RUNnen, want dan kunnen bij 
sommige regels afwijkende waarden ont- 
staan! 

De meest voorkomende foutmelding is OUT OF 
DATA, gevolgd door een regelnummer. Bij 
deze fout moet niet gezocht worden naar 
een fout in de genoemde regel, maar naar 
de DATA regels. In deze regels is te 
weinig DATA ingetoetst. Ook komt een 
ILLEGAL FUNCTION CALL vaak voor in regels 
waarin de DATA wordt ingelezen (te 
herkennen aan een READ-opdracht in deze 
regel) . Ook hier zit de fout niet in de 
gemelde regel maar in de DATA regels. 

Succes , 

Alf red. 
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PHILIPS NMS8250/NMS8255 MSX-2 



Eerst even dit . _ _ _ 


Direkt bij de introductie van de NMS8250 
hebben we twee van deze machines besteld, 
maar wel met een ingebouwde tweede 
diskdrive. Wie schetst onze verbazing, 
toen we te horen kregen dat de inbouw van 
een tweede drive niet mogelijk was. Ook 
het laten inbouwen door Philips zelf was 
niet mogelijk. Wel kon de NMS8255 worden 
besteld. Deze machine zou wel twee drives 
bevatten en kon een maand later geleverd 
worden. Waarom een tweede drive niet later 
kon worden ingebouwd is nog steeds niet 
geheel duidelijk. Wel weten we van onze 
lezers dat het inbouwen inderdaad 
problemen gaf en van een oplossing hebben 
we nog niets vernomen. Misschien is er 
alleen sprake van een foutje in de eerste 
serie van deze computers, maar de aspirant 
koper, die al met inbouw van een tweede 
drive rekening houdt, dient toch wel even 
goed te informeren of latere inbouw wel 
mogelijk is. 

Zo, dan gaat nu de verpakking van de 
NMS8255 open. Deze verpakking is van de 
8250 met een kleine sticker waarop staat 
dat het de 8255 betreft. In de doos een 
papiertje, waarop staat dat het om de 
8250/2D gaat. De machine zelf is gewoon 


een 8250 met twee drives. Verder vinden we 
een los toetsenbord, een kabel voor de TV, 
2 cinch kabels voor een monitor, een 
MSX-DOS diskette, een diskette met 
Homeoffice 2 en enkele (Nederlandse) boe- 
ken. 

De kast is zeer degelijk. Er loopt -onder 
de afdekplaat- een U-balkje over de gehele 
breedte van de machine zodat de drives 
zijn beschermd en er rustig een 
(monochrome) monitor op de kast kan worden 
geplaatst. Aan de voorzijde vinden we de 
drive(s), een aan/uit schakelaar en een 
RESET-knop. Deze laatste had wel wat beter 
verstopt mogen worden; een ongewenste 
RESET is niet ondenkbaar met deze knop op 
deze plaats. Aan de rechter zijkant zitten 
twee openingen voor modules en alle 
verdere aansluitingen zitten aan de 
achterkant. Dit zijn: TV, kleuren (video) 
monitor, monochrome monitor, SCART (RGB 
monitor), printer, cassetterecorder, toet- 
senbordconnector en twee joysticks. De 
plaats voor de joysticks is ongelukkig 
gekozen. Deze hadden we liever aan de 
voorzijde of de zijkant gezien. 

Het toetsenbord is erg licht en uitgerust 
met een numeriek keypad. Erg makkelijk 
zo'n numeriek gedeelte (dat is wel geheel 
persoonlijk) maar dit gaat wel ten koste 
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van de cursortoetsen. Deze zijn erg klein 
geworden en het is wel even wennen om hier 
mee te werken. Het toetsenbord heeft 2 
anti-slip dopjes op de onderzijde en twee 
spekgladde kunststof dopjes. De anti-slip 
dopjes worden glad wanneer ze stoffig zijn 
en moeten goed schoongehouden worden. 
Beter is het om zelf nog twee rubber 
dopjes erbij te plakken om het verschuiven 
van het toetsenbord te voorkomen. Het 
toetsenbord is niet voorzien van de 
bekende puntjes voor het blinddtypen. 


GELIJK AAN DE VG8235 


De drives hebben een opslagcapaciteit van 
720Kb elk, 1,4 Megabyte dus voor de 8255, 
en dat is heel ruim, zodat deze machines 
ideaal zijn voor zakelijke toepassingen. 
Voor de rest zijn de machines gelijk aan 
de VG8235. Ook de geheugenindeling is 
hetzelfde, zodat (al dan niet met een 
POKE) ook op deze computers vrijwel alle 
software is te gebruiken. Ook zijn alle 
fouten van de 8235 verholpen. Er kan geen 
diskette-overzicht meer worden verkregen 
zonder dat de diskette in de drive zit 
(zoals bij de 8235) , de foutmeldingen zijn 
nu ook correct en de 128K RAM zit er echt 
in! Ook de eerder gemelde problemen met 
het pre-productie model zijn verholpen, al 
hebben we toch nog wat kleine probleempjes 
met de printer. De voeding is ruimschoots 
voldoende. Ook de 8255 wordt niet over- 
dreven warm. 


AAN HET BERK. . . 


Deze nieuwe machines zijn zeer snel. Het 
opstarten gaat supersnel en ook de 
aftasting van het toetsenbord is sneller. 
De cursor schiet als een turbosprite over 
het scherm en is dan ook soms niet meer 
zichtbaar. Ook de drives zijn snel en 
geruisloos. Uiteraard hebben we meteen 
even een paar kleine routines laten 
draaien en ook deze zijn sneller. Alles is 
sneller dan bij de 8235 en waarschijnlijk 
is dit de snelste MSX machine tot nu toe. 
Mede door de grote opslagcapaciteit van de 
drives zijn deze machines prima geschikt 
voor zakelijke toepassingen. Programma's 
als dBASE II en Datastar kunnen nu enkele 
duizenden records verwerken. Deze pro- 
gramma’s, alsmede Wordstar, zijn op deze 
computer ongeveer even snel als op de CP/M 
machine, waar ze oorspronkelijk vandaan 
kwamen. 

Ook in BASIC kunnen we alle kanten op, 
daar we de beschikking hebben over 3 
Ram-disken van 32K elk en bij zakelijke 
programma's kunnen we ook nog gebruik 
maken van meer dan 110K Videogeheugen om 
gegevens op te slaan. Wij zijn dan ook erg 
in onze nopjes met deze fraaie machines en 
hebben meteen geen andere MSX computers 
meer staan. 


Opvallend is de goede beeldkwaliteit. Op 
de 'oude' VG8235 konden we geen verschil 
zien tussen de Philips CM8533 en de Sony 
KX-14CP1 monitoren (beiden RGB) . Met deze 
nieuwe computers is wel degelijk een 
kwaliteitsverschil waar te nemen. Het 
beeld is op de Sony aanmerkelijk beter en 
op deze machines kunnen dan ook best de 
duurdere Hi-res monitoren aangesloten 
worden om (vooral bij beelden met 512 x 
212 beeldpunten) een optimale kwaliteit te 
verkrijgen. 

De BASIC is versie 2.1 en is uitgebreid 
met o.a. een serie commando's voor een 
RS232 interface { CALL COMINI, CALL 
COMTERM enz. enz) plus enkele nieuwe 
instructies voor toekomstige toepassingen. 
Ook DOS wordt bijgeleverd en wel in een 
erg gebruiksvriendelijke versie. Geheel 
menugestuurd zodat ook de beginner nu 
verschillende dingen eenvoudig onder DOS 
kan realiseren. 

Ook bijgeleverd is het Home Office 2 pak- 
ket. Zeer uitgebreid en zonder de fouten 
uit het eerste pakket. Deze schijf bevat 
nu een tekstverwerker, een kaartenbak, een 
spreadsheet, een klok, een kalender, een 
agenda en een calculator. Jammer genoeg 
ontbreekt het tekenpakket van de eerste 
versie en bezitters van een 8235 moeten 
-bij eventuele aanschaf van één van deze 
machines- wel een kopietje van hun oude 
Home Office maken. Toch heeft dit nieuwe 
pakket een nadeel: het is ontzettend 
traag. De programma's blijven konstant 
werken met de tweede drive ondanks het 
feit, dat hier geen diskette inzit. Ook 
het inlezen en wegschrijven van pro- 
gramma's en files gaat erg langzaam. 

Bij het overzetten van onze software naar 
de nieuwe -dubbelzijdige- schijven zijn we 
geen problemen tegengekomen. Ook het 
verwerken van de 'oude' -enkelzi jdige- 
schijfjes gaat nu prima. De computers 
blijven de diskettes (ook na een schrijf- 
opdracht) herkennen als enkel- of dub- 
belzijdig. 


DOCUMENTATIE 


Eindelijk levert Philips een behoorlijk 
pakketje boeken bij deze machines. Alle 
handleidingen zijn in het Nederlands en 
goed bruikbaar voor een beginner. Er wordt 
een handleiding geleverd voor de computer 
met hierin o.a. een overzicht van de 
aansluitingen en de geheugenindeling. 
Verder een prima boek met de BASIC 
instructies en duidelijke hoofdstukken 
over disk-BASIC en MSX-DOS. Met het Home 
Office pakket hebben we niet veel gedaan, 
maar de handleiding is prima en het werken 
met de kaartenbak en de tekstverwerker 
zullen de meeste kopers in één avondje wel 
onder de knie hebben. 
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TECHNISCHE SPECIFICATIES 


WIJZIGINGEN EN AANVULLINGEN 


Voor wie nog niet zo bekend is met de 
MSX-2 computers geven we nog even een 
overzicht van de technische gegevens: 

Computer: Philips NMS8250 / NMS8255 
CPU: Z80A, 3.5 MHz. 

Besturingssysteem: Disk BASIC, MSX-DOS 
Videoprocessor : YM 9938 of equivalent. 
Soundprocessor : AY-3-8912 of equivalent. 
Ram: 128K 
Videoram: 128K 

Rom: 48K (o.a. MSX-2 BASIC) 

+ 16K Disk BASIC. 

Diskdrive: 3.5 Inch 

dubbelzijdig 720K. Ingebouwde real-time 
klok met accu. 


Aansluitingen: 

TV aansluiting, CVBS kleurenmonitor , 
monochrome monitor, SCART RGB-monitor, 
Datarecorder , MSX-printer, Toetsenbord, 2 
joysticks, 2 cartridge connectors. Tevens 
hebben deze computers een RESET knop. 


CONCLUSIE 


Een mooie en vooral degelijke machine die 
-tot nu toe- geen problemen geeft en 
zeer snel is. De NMS8250 kost Fl. 1599,= 
en de NMS8255 kost Fl. 2195,=. Beide 
prijzen zijn redelijk, gezien het complete 
pakket dat wordt geleverd. De documentatie 
is goed en met de computer kan -door de 
bijgeleverde software- zonder extra 
investeringen meteen aan de slag worden 
gegaan. 

Tot slot een compliment aan Philips die 
erin geslaagd is met deze 'bejaarde' 
Z80 processor zo'n snelle en uitgebreide 
machine te fabriceren. 

Alfred Debels 


WURZLE (Gids nr . 6 ) 


Het spel Wurzle uit deze Gids heeft 4 
speelvelden. Door een fout in regel 800 
kan slechts met 3 velden worden gespeeld. 
Door in deze regel IF CO>3 te veranderen 
in IF C0>4 kunnen alle 4 de velden worden 
uitgespeeld. 


TOPO DRENTHE 


In regel 4040 van dit programma staan bij 
de plaats Roswinkel de coördinaten 92,144. 
Dit moet worden 204,114. 


MINI GOLF 


De verbetering op het programma Mini Golf, 
op pag. 54 in Gids nr. 8, is niet geheel 
juist. In regel 350 moet tussen de 

aanhalingstekens een spatie komen te 
staan. Doordat in het eigenlijke programma 
een DEFINT A-Z opdracht staat kan de 
wijziging niet werken. De variabele Z 
moet in het gehele stuk veranderd worden 
in Z# of de DEFINT A-Z opdracht in het 
begin van het programma moet worden 
veranderd in DEFINT A-Y. 


MYSTERY TOWER 


De volgende wijziging is alleen van belang 
als het spel nog niet is gespeeld. Door 
een vergissing in de DATA regels kan je in 
een kamer zonder sleutel. Voor wie nog 
niet aan dit spel begonnen was volgt hier 
de correctie: 

1330 DATA computerkamer ,0,0, 0,1 


MSX SIGN 



In dit programma uit Gids nr. 4 moet regel 
250 er zo uitzien: 

SCREEN 2,0 


DUIVEN SCHIETEN 


In dit programma uit Gids nr. 6 moet in 
regel 80, na de COLOR-opdracht, CLS worden 
opgenomen. 


YATHZEE 


REBEL 2630 WAS NIET FOUT 
HIER DUS DE ORIGINELE REGEL 
UIT DE LISTING GEBRUIKEN 
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Software 



PRINT V .■ 

V 

■■ PRESS 
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'ONS TWEE DAGEN 
TEKST 


Wat doe je als je bijvoorbeeld een leuk 
briefhoofd wilt hebben of iemand een 
zelfgemaakte kaart wilt sturen? In de 
boekwinkel zijn daarvoor vellen met 
wrijfletters te koop, maar die hebben het 
nadeel, dat je op een gegeven moment met 
een half vel zit te kijken, waarop de 
bruikbare letters ontbreken. Je kunt 
zoiets natuurlijk ook bij een drukker 
laten doen, maar dat kost een hoop geld en 
is alleen interessant als je een groot 
aantal afdrukken wilt hebben. 

Om deze -en tal van andere- redenen zijn 
de laatste tijd de z.g. "desk top 
publishing" programma's voor computers 
erg populair geworden. Met een Apple 
Macintosh kun je bijvoorbeeld hele 
tijdschriften "drukken" en als je een 
fotolitho-apparaat gebruikt voor het 
afdrukken, zie je nauwelijks meer verschil 
met professioneel drukwerk. Voor de 
apparatuur en programmatuur, die je 
daarvoor nodig hebt, ben je dan wel 
tienduizenden guldens kwijt.... 


Door de introduktie van het programma 
Print X'Press van het Engelse software- 
bedrijf Anglosoft, biedt de MSX-computer 
nu echter ook de mogelijkheid om een eigen 
"drukkerijtje" te beginnen en dat kost 
voor een dergelijk uniek programma 
eigenlijk erg weinig. Maar... je moet er 
wel wat voor over hebben. In het Engelse 
blad "MSX Computing" stond onlangs een 
beschrijving van dit programma en daarbij 
werd vermeld, dat het vooral voor leken 
behoorlijk lastig is om te leren. En dan 
heeft het Engelse publiek nog het 
voordeel, dat men de handleiding goed kan 
lezen (dat mogen we tenminste aannemen) . 


Ik kan me voorstellen, dat er al heel wat 
MSX-bezitters zijn, die Print X'Press in 
de kast hebben liggen en er niets mee 
doen, omdat ze er geen jota van snappen. 
Je wordt geconfronteerd met een hand- 
leiding, die nogal moeilijk geschreven is, 
zelfs voor iemand, die de Engelse taal 
goed beheerst en bovendien kom je er 
termen in tegen, die in de drukkerswereld 
ingeburgerd zijn, maar die de leek hele- 
maal niets zeggen. Door mijn kontakten met 
diverse drukkerijen in de loop der jaren, 
ben ik onderhand wel op de hoogte van dat 
vakjargon en ik zal dan ook proberen hier 
de handleiding wat toe te lichten, zodat 
Print X'Press voor degenen, die het al 
hebben en voor degenen, die het eventueel 
wel willen kopen, wat toegankelijker 
wordt. Want dat verdient dit programma 
zeker 



Print X'Press is verdeeld in 3 
afzonderlijke programma's: DESIGNER, 
COMPILER en MANUSCRIPT, waarvan de twee 
laatsten de belangrijksten zijn. In de 
compiler zijn 3 blokken met fonts en 
grafische voorstellingen opgeslagen, die 
in Manuscript kunnen worden geladen en in 
dat gedeelte van het programma worden 
gebruikt om een ontwerp te maken van wat 
je uiteindelijk op papier wilt hebben. En 
daarmee is de eerste vakterm al gevallen: 
een font is een bepaald lettertype, 
waarvan het hele alfabet in de Compiler 
aanwezig is; sommige in hoofd- en kleine 
letters en andere alleen in hoofdletters. 


DESMR 
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Dit is het eerste programma van het 
keuzemenu en meteen ook het lastigste. 
Zoals de naam al zegt, is het bedoeld voor 
de creatievelingen, die zelf iets willen 
ontwerpen en geen gebruik willen maken van 
de voorgeprogrammeerde lettersets. 

Als je zelf letters wilt ontwerpen, 
gebruik je daarvoor doorgaans millimeter- 
papier en dat is hier nagebootst door 
middel van een raster, waarop met behulp 
van de cursortoetsen en de spatiebalk de 
letters ingevuld kunnen worden. Dit raster 
(shape design grid) wordt gekozen door de 
"S" in te toetsen vanuit het Designer- 
menu. Je letter of tekening wordt getoond 
in het zwarte gedeelte rechts onder in het 
beeldscherm. Met "C" wordt de mogelijkheid 
geboden verschillende kleuren te gebruiken 
als voor- en achtergrondkleur en met "I" 
kom je in het "Icon" gedeelte terecht, 
waarin de ontwerpen bewerkt kunnen wor- 
den. Icons zijn grafische symbolen en die 
zijn op de foto rechts te zien. 

Linksboven een schaar, waarmee aan het 
ontwerp, dat op dat moment in behandeling 
is, een nummer toegekend wordt, (links- 
onder te zien bij NO:) Met de 
cursortoetsen kan dit nummer veranderd 
worden. 

Onder het schaartje staat een vakje met 
"C" erin voor "copy" en daarmee kan een 
letter uit het geheugen tevoorschijn 
worden gehaald voor bijvoorbeeld een 
verdere bewerking. Het nummer van het 
ontwerp staat linksonder bij ED: en daar 
ben ik een hele tijd mee bezig geweest. In 
de handleiding staat namelijk dat je, om 
het gewenste nummer te krijgen, de < en de 
> toets moet gebruiken. Terwijl ik die 
twee net intikte, moest ik uiteraard op 
SHIFT drukken, anders krijg je een punt en 
een komma. Bij Print X'Press blijk je dat 
juist niet te moeten doen, want je kunt 
drukken wat je wilt, maar het nummer naast 
ED: verandert niet. Dus gewoon net doen of 
je een punt en een komma wilt hebben en 
geen SHIFT indrukken, dan komen je letters 
wel tevoorschijn. 

Met "O" voor Overlay kun je al je 
ontwerpen op een rijtje zetten in het 
zwarte vak om bijvoorbeeld te kunnen 
beoordelen, hoe een hele naam er 
uiteindelijk uitziet of hoe een tekening 
geworden is. De twee pijltjes daaronder 
stellen "Image" voor, waarmee je van het 
"current character" (de letter, die op het 
moment in behandeling is) een spiegelbeeld 
kunt maken of deze 90 graden kunt draaien 
of in negatiefbeeld kunt weergeven. Onder 
links zien we dan een printertje, waarmee 
het ontwerp via de printer of het 
beeldscherm af gedrukt kan worden, maar dan 
moet het wel eerst weggeschreven worden in 
een file. Dat gebeurt ernaast in het vakje 
met de voorstelling van een diskette, maar 
dat komt in de handleiding pas als laatste 
aan de orde. Dit vind ik één van de grote 
bezwaren van deze handleiding: er zit geen 
logische volgorde in. Als je alles precies 
volgens de handleiding doet, ga je de mist 
in. Je moet hem eigenlijk een paar keer 
doorlezen en dan zelf een andere volgorde 
uitkienen. 


Rechtsboven kun je het rastertje kiezen om 
een leeg raster op het scherm te krijgen 
voor een nieuw ontwerp. Met "S" voor Swap 
kan een ander ontwerp uit het geheugen 
gehaald worden en met het cameraatje wordt 
de mogelijkheid geboden animaties te 
produceren voor gebruik van letters of 
sprites in eigen programma's. Het pijltje 
naar beneden is de optie, waarmee je 
rechtstreeks vanaf het toetsenbord data in 
kunt voeren om een ontwerp te maken en dat 
kan hexadecimaal, decimaal of binair. De 
fanaten, die dat willen proberen, moeten 
dat maar zelf uitzoeken, want mij ging het 
te ver. 


COMPILER 
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Zo, het moeilijkste gedeelte is achter de 
rug; de hobbyisten kunnen zich uitleven op 
hun ontwerpjes en de meer gemakszuchtigen 
-zoals ik- kunnen zich storten op de 
Compiler, die heel wat makkelijker in het 
gebruik is. Bij het selecteren vanuit het 
keuzemenu verschijnt het beeldscherm, dat 
in drie gedeeltes gesplitst is: in het 
midden de letterset, die geladen is vanuit 
één van de blokken (BI t/m B3), het z.g. 
SOURCE BLOCK, daarboven de DESTINATION 
FONT FILE, waarnaar de gekozen letters of 
grafische symbolen overgebracht kunnen 
worden en onderaan de verschillende 
keuzemogeli j kheden . 

Met de cursortoetsen en de spatiebalk 
worden de eventuele keuzes uitgevoerd, 
waarvan de eerste ook de mogelijkheid 
biedt om met joystick te werken. 

BACKGROUND wordt gebruikt om de voor- en 
achtergrondkleur te veranderen, zodat je 
zwarte letters op een witte achtergrond 
kunt bekijken of andersom. 

LOAD BLOCK: spreekt voor zich. 

LOAD FILE: hiermee kan een file geladen 
worden, die in het Designer gedeelte van 
het programma met de SAVE FILE optie werd 
weggeschreven. 

SAVE FILE: hiermee wordt een file 
weggeschreven, die met de Compiler zelf is 
gemaakt en later in het Manuscript, 
Designer of een eigen programma gebruikt 
kan worden. Deze files krijgen het 
achtervoegsel FLE op de schijf of 
cassette. 

LFILES: geeft -alleen bij diskettes- een 
overzicht van de files op de disk via de 
printer. 
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SET NUMBER: elk blek is onderverdeeld in 9 
sets en met deze optie kan naar het 
volgende setnummer worden gesprongen. 
16x16/8x8: keuze van de lettergrootte. De 
kleine letters (8x8) worden in blokjes van 
4 ingeladen. 

COPY: het overbrengen van letters van de 
middelste balk naar de bovenste. De kleine 
letters worden met de cursortoetsen (of 
joystick) voorzien van een rood hoekje, 
zodat ze in de juiste volgorde op de 
bovenste balk geplaatst kunnen worden. 
COPY+INC: mogelijkheid tot versneld 

kopieëren. 

ROTATE, INVERT en MIRROR hebben alleen 
betrekking op de bovenste balk. 

In Block 1 en Block 2 zitten 8 lettertypes 
van 16x16, dus alleen hoofdletters. De kop 
boven dit artikel is bijvoorbeeld gemaakt 
met set 4: Broadway. Ook Standard Italic, 
Gothic en Shadow zijn erg mooi voor -zeg 
maar- gelukwenskaarten o.i.d. 

Block 3 bevat meer grafisch materiaal: in 

set 1 t/m 4 vinden we allerlei kaders om 
drukwerk te verfraaien, terwijl de sets 5 
t/m 7 allerlei tekeningetjes bieden: van 

bellen, hoefijzers en bloemen tot 

computers, disedrives, camera's en 

telefoons. Set 8 is een set met allemaal 
kleine letters. 


MANUSCRIPT 


Als we vanuit de Compiler een leuke set 
hebben ingeladen, kunnen we vormgeving 
uiteindelijk gaan bepalen met het laatste 
programma van Print X' Press: Manuscript. 
Het "blad papier" bevindt zich bovenaan 
het beeldscherm met daaronder weer een 
overzicht van de commando's en opties. 

Er wordt gewerkt met een "COMMAND MODE" en 
een "EDIT MODE", die gekozen worden door 
middel van de F1 toets. In de Command Mode 
worden zaken als de paginagrootte opgege- 
ven en tevens gebeurt het laden, printen 
en saven hierin. 

CLEAR (F2): schoonmaken beeldscherm en 

opheffen van alle eerder gegeven comman- 
do's. 

CLICK (F3): Klik toetsenbord aan/uit 
LOADM (F4) : Inladen van een file, die 

onder Manuscript weggeschreven is; te 
herkennen aan het achtervoegsel MAN. 

SAVEM (F5) : Wegschrijven van een MAN-file. 
Als zo'n file wordt weggeschreven, worden 
het font, de kleuren van de letters, de 
lettergrootte en het hele ontwerp van het 
manuscript meegeSAVEd. 

LOADF (F6) : Inladen van een file, die met 
Compiler of Designer is weggeschreven. 
PAGE (F7) : Hiermee kunnen paginalengte en 
-breedte worden opgegeven. 

PRINT (F8) : Uitprinten van het manuscript 
op een dot-matrix printer. 

LFILES (F9) : Printen van diskettef iles. 

Nu kunnen we dan eindelijk de boel echt op 
papier gaan zetten en wel op twee manie- 
ren: direkt vanaf het toetsenbord met 

normale kleine letters en met behulp van 


een ingelezen file vanuit Compiler of 
Designer. Rechtsonder in beeld staat de 
letter, die op dat moment "op papier" 
gebracht kan worden door middel van de 
INS(ert) toets. Met F4 en F5 kan voor- of 
achteruit worden gegaan in de letterset. 
Ook de andere funktietoetsen hebben hun 
eigen commando's, maar die zijn vrij 
gemakkelijk. Iemand, die wel eens met een 
tekstverwerker bezig is geweest, zal met 
Manuscript ook niet veel moeite hebben. 


Tot slot nog even iets over het uitprin- 
ten. Print X'Press kan op elke normale 
Epson- compatible matrixprinter gebruikt 
worden en zelfs is het mogelijk meer- 
kleurige afdrukken te verkrijgen, als je 
een printer bezit, waarvoor inktlinten in 
verschillende kleuren verkrijgbaar zijn. 
De prints, die wij zelf hebben gemaakt, 
moesten gedaan worden op de Trend printer, 
die een goede zwarte af druk geeft. De 
andere printer -een NEC Pinwriter P6- 
levert problemen op, aangezien dit een 
24-naalds printer is en Print X'Press 8 
naaldjes gebruikt. Hierdoor wordt van zo'n 
superprinter maar een klein gedeelte van 
de naalden gebruikt en krijg je een zeer 
vaag, grijs afdrukje. 


De prijs voor Print X'Press is FL. 95, — 
voor de cassetteversie en FL. 109, — voor 
de disketteversie. 

Voor die betrekkelijk lage prijs krijg je 
een uniek programma, dat voor veel 
doeleinden gebruikt kan worden. Maar 
-zoals gezegd- je moet er wel wat voor 
over hebben en er echt de tanden inzetten 
om er goed mee om te kunnen gaan. Wie 
bereid is dat te doen en er wat tijd in te 
steken, zal er echter jarenlang plezier 
van hebben. 


José Herps. 
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ZEN- & DE VP AC 80 


Eerst maar even de ZEN assembler snel 
af werken. We konden dit programma op disk 
alleen krijgen met een cassette hand- 
leiding. Alle opdrachten waren anders dan 
bij de diskversie en de handleiding was 
erg slecht. Niet mee te werken dus en 
gezien de hoge prijs kunnen we beter maar 
meteen verder gaan met de DEVPAC assem- 
bler. Laat Zen maar lekker op de plank 
liggen bij de winkelier. 


ASSEHBLERS EN COMPILERS 

Onze MSX computers kunnen worden gepro- 
grammeerd in BASIC via een ingebouwde 
BASIC interpreter (in Rom) . Dit is de 
makkelijkste manier om te programmeren, 
maar deze programma's zijn traag omdat 
elke instructie moet worden opgezocht in 
de Rom en worden vertaald. Tevens nemen 
deze BASIC programma's veel geheugenruimte 
in beslag omdat er regelnummers worden 
gebruikt die ruimte opeisen en evt. 
commentaarregels eveneens ten koste gaan 
van de beschikbare ruimte. Ook is de 
geheugenruimte beperkt omdat de BASIC 
interpreter zelf veel ruimte inneemt en 
altijd alle instructies aanwezig zijn; ook 
al hebben we slechts enkele van deze 
instructies voor een programma nodig. 

De snelste manier -en de moeilijkste- om 
een programma te maken is in machinetaal. 
Tussen deze twee uitersten (BASIC en 
machinetaal) liggen diverse andere pro- 
grammeertalen met compilers. Deze compi- 
lers vertalen tekst in een machinetaal- 
programma. 

Machinetaalcompilers (assemblers) zijn het 
snelst, BASIC compilers het langzaamst. 
Hiertussen vinden we min of meer snelle 
compilers zoals PASCAL, FORTRAN en C. 
DEVPAC80 is een machinetaal compiler. Deze 
assembler verwerkt tekst (source code) tot 
een machinetaalprogramma en het resultaat 
is een razendsnel programma. Wel is het 
programmeren zeer lastig. Assemblers 
kennen vrijwel alleen direkte opdrachten 
voor de processor en enkele rekenkundige 
bewerkingen. B.v. stringmanipulaties zul- 
len zelf geprogrammeerd moeten worden. 

DEVPAC80 heeft 3 programma's: een editor 
(ED80) , een assembler (GEN80) en een 
monitor (MON80) . 


DE EDITOR 

Dit onderdeel is een eenvoudige 
tekstverwerker om het programma te maken. 
Deze editor is niet speciaal voor de MSX 
gemaakt; het is een Z80 programma dat 
aangepast is aan de MSX. De cursortoetsen 
kunnen daarom niet worden gebruikt en ook 
de CTRL opdrachten zijn anders dan bij de 
MSX. DE CTRL-opdrachten komen echter wel 
overeen met die van Wordstar en voor een 


groot gedeelte ook met die van Datastar, 
d-Base II en andere CP/iê programma’s. Wie 
met deze programma's ervaring heeft zal 
met de CTRL opdrachten geen moeite hebben. 

Verder werkt dit onderdeel prima, al is de 
(Engelse) handleiding wat beknopt en zal 
een beginner wel wat moeite hebben om de 
eerste keren de source code behoorlijk in 
te voeren. Deze sourcecode mag rijkelijk 
worden voorzien van tekst en commentaar 
want dit wordt niet meevertaald en heeft 
geen invloed op het programma. Ook moet 
deze sourcecode worden bewaard (opslaan 
als tekstfile) want hierin zullen 
wijzigingen aangebracht moeten worden. In 
het uiteindelijke programma is weinig meer 
te veranderen. Op de diskette staat een 
oefenfile en er staan diverse voorbeelden 
in de handleiding. Voor de iets gevorderde 
programmeur is de handleiding hier 
voldoende. De beginner zal echter moeite 
hebben om de 'link' tussen deze 
tekstverwerker en zijn in te voeren code 
te leggen en zal deze informatie uit 
andere bronnen moeten betrekken. De 
handleiding bevat geen beginnerscursus. 


DE ASSEMBLER 

GEN 80 is het eigenlijke vertaalprogramma. 
Met dit onderdeel wordt de tekst omgezet 
in een machinetaal programma. Zoals bij de 
meeste assemblers is het aantal fout- 
meldingen beperkt en kunnen we niet (zoals 
bij BASIC) verwachten dat een vertaling 
zonder ERRORS ook foutloos werkt. Bij dit 
onderdeel is de handleiding duidelijk en 
voorzien van diverse voorbeelden. Ook kent 
DEVPAC enkele directives zoals IF, COND, 
ELSE enz. Niet veel, maar alles is beter 
dan niets. Het vertalen gaat vrij snel en 
dit onderdeel is tamelijk gebruiksvriende- 
lijk. 


DE MONITOR 

Dit derde programma heet MON80 en is een 
monitor met een disassembler . Ook hier een 
goede handleiding en een tamelijk ge- 
bruiksvriendelijk programma. Met deze 
monitor kan het geheugen van de computer 
bekeken worden. Tevens kunnen programma's 
ingeladen worden om te bekijken en/of te 
veranderen. Ook kunnen de registers worden 
bekeken en is het mogelijk -aan de hand 
van een op te geven zoekgegeven- het 
geheugen af te tasten en een tekst, waarde 
o.i.d. op te zoeken en weer te geven. Deze 
monitor is zeer veelzijdig en werkt 
probleemloos. 

Een disassembler voor de Z80 blijft een 
probleem. Men moet het programma zeer goed 
kennen om een disassembler te kunnen 
gebruiken. Zo moeten in ieder geval alle 
plaatsen die geen instructies bevatten 
bekend zijn, anders worden deze ook 
vertaald. Voor zover mogelijk is deze 
versie prima en de uitdraai is voorzien 
van alle mogelijke gegevens. 
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CASSETTE £ DISKETTE VERSIE 
BASIC & DOS 

Er is één groot verschil tussen de 

cassette- en de diskette versie. De 

diskette versie werkt onder MSX-DOS en 
maakt .COM files welke automatisch worden 
ingeladen en gestart op adres &H100; ook 
wanneer een ander ORG- adres wordt 
opgegeven. We hebben hier al diverse 
telefoontjes over gehad en voor diegenen 
die nog niet weten hoe met DEVPAC een 
routine moet worden gemaakt om onder BASIC 
te gebruiken of op een ander adres te 
starten volgen hier enkele oplossingen. 

Met de monitor is het mogelijk om een 
programma in te laden op vrijwel elk 
gewenst adres. Dit kunnen we gebruiken met 
b.v. een programma dat al is vertaald. 
Geven we vervolgens een RESET, dan kunnen 
we dit programma, onder Disk-BASIC, 
wegschrijven naar diskette. Dit programma 
is nu meteen voorzien van een Header en 
kan vervolgens altijd op het juiste adres 
worden ingelezen en gestart. Moeten we nog 
een programma maken, dan kunnen we zelf 
deze header programmeren om het programma 
geschikt te maken voor BASIC. In deze 
header moet het volgende voorkomen: 

De code &HFE, zodat de computer weet dat 
het om een programma gaat dat onder BASIC 
moet draaien. 

Het beginadres, het eindadres en het 
startadres van het programma. 

In de sourcecode geven we dit alsvolgt op: 

START EQU #E000 ; Startadres programma 

ORG START-7 ; begin v.d. header 
DEFB #FE ;code voor BASIC 
DEFW BEGIN, END, EXEC ; beginadres, 

; eindadres en 
istartadres. 

BEGIN nn ; begin van het eigenlijke 
, , ; programma 


BRIDGE 

SPELENDERWIJS 

Hoewel Bridge in Neder- 
land al zo'n 700.000 
'addicts' heeft en nog 
steeds in populariteit 
groeit, zijn er nog 
maar weinig programma's 
voor dit fascinerende 
kaartspel op de markt. Dat komt waar- 
schijnlijk omdat Bridge zoveel variabelen 
kent, meer dan b.v. schaken. Tot nu toe 
waren er uitsluitend 'random' programma's, 
die vaak het euvel hadden niet te kunnen 
bieden zoals wij dat hier gewend zijn en 
ook in het afspelen ernstig falen. Sinds 
ruim een jaar is in ons land een groep 
bridgeleraren onder de naam BRIDGESOFT 
professioneel aan de gang. Zij hebben 
inmiddels drie programma's voor de Commo- 
dore 64 uitgebracht, waarvan "beer Bridge" 
binnenkort en "Bridge Spelenderwijs" nu op 
de MSX te verkrijgen zijn. 

Bridge Spelenderwijs bevat 55 voorgepro- 
grammeerde spellen, die de gebruiker uit- 
nodigen als het ware aan tafel te gaan 
zitten en tegen de computer te spelen. 
Eerst krijg je 13 kaarten in beeld. Niet 
volgens de krante-opmaak, maar in fraaie 
low graphics, naast elkaar met een kleine 
spatie tussen de kleuren. Het programma 
kent een biedpad, waarvan je kan afwijken, 
met uitleg op het scherm. Geboden wordt 
volgens het gebruikelijke ACOL systeem. 
Ook het uitspelen wordt zeer overzichte- 
lijk gebracht. Wie het edele bridgespel 
nauwelijks beheerst en regelmatig in de 
:?ut gaat, wordt dan teruggefloten met een 
piepje en "Zo gaat u down, we gaan terug 
naar slag x". De kaarten draaien dan 
-floep- terug en dan kan men het opnieuw 
proberen. Misschien toch met "Leer Bridge" 
Peginnen 



bridge5DFt 


END EQU $ 


Zo, ook dat is weer opgelost. De cassette 
versie zorgt zelf voor de header. Bij 
andere computers hebben we heel wat betere 
assemblers onder handen gehad, voor de MSX 
is DEVPAC80 voorlopig de beste die 
verkrijgbaar is. De -Engelse- handleiding 
is redelijk tot goed en voor dit programma 
moeten de volgende prijzen worden betaald: 
cassette versie ca. Fl. 79,= diskette 
versie ca. Fl. 165,=. Een redelijke prijs 
voor een redelijk goed programma. Mochten 
er ooit krachtiger assemblers komen, dan 
zullen die hoogst waarschijnlijk ook 
duurder worden gezien onze ervaring met 
soortgelijke programma's voor andere com- 
putermerken. 

Alfred Debels 


'Bridge Spelenderwijs' (Fl. 69,- cass. en 
:ri. 79,- disk) is verkrijgbaar bij alle 
grote computerzaken. 

Voor nadere inlichtingen kunt u bij ons 
terecht * 

BRIDGESOFT, POSTBUS 1308, 1400 BH BUSSUM. 
(Tel. 02159-34905) 
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Wat adventures betreft zijn we er de 
afgelopen maanden maar bekaaid vanaf 
gekomen. Level 9 teerde op de oude glorie 
met de Jewels of Darkness trilogie, 
waarbij enkele oude tekstadventures van 
graphics voorzien werden. Het spel "Sal- 
vage", dat ik ter resencie kreeg aangebo- 
den, heb ik teruggegeven omdat het mij 
niet bepaald boeide en ik zit nu met smart 
te wachten op "Gauntlet", dat binnenkort 
door U.S.Gold voor de MSX wordt uitge- 
bracht en waarover ik in diverse Engelse 
bladen al zeer lovende kritieken heb 
gelezen. Level 9 heeft ook alweer 2 nieuwe 
titels aangekondigd: het vervolg op het 
dagboek van Adrian Mole en "Night Ore". 

Intussen hebben we hier echter niet stil- 
gezeten, want de z.g. Arcade Adventures 
waren wel sterk vertegenwoordigd en het 
absolute topspel vonden wij "Starquake" 
van Bubble Bus Software. 

Op het eerste gezicht ziet deze cassette 
er helemaal niet bijzonder uit: een vrij 
eenvoudig doosje met een zeer summiere 
handleiding, waarop alleen maar vermeld 
staat hoe het spel geladen moet worden, 
hoe je de "Blob" (de hoofdpersoon) moet 
bewegen en een "Galaxy alfabet", dat 
eigenlijk totaal overbodig is. 

Het verhaal is vrij eenvoudig: je landt op 
een planeet, waarvan de kern bijna vernie- 
tigd is en het is jouw taak de meer dan 
500 velden af te stropen om 8 onderdelen 
van die kern te vinden en ernaar toe te 
brengen. De uitvoering van die taak is 
minder eenvoudig en het uitspelen is ons 
nog lang niet gelukt, ondanks de kaart die 
we gemaakt hebben. Het tekenen van die 
kaart heeft een hele zondag in beslag 
genomen, vandaar dat we die hier plaatsen 
om degenen, die het ook willen proberen 
een hoop moeite te besparen. 

Blobje kan zich op 2 manieren door de 
velden verplaatsen: te voet en met een 
ruimtevoertuigje, waarvan er een groot 
aantal in het spel te vinden is en die wij 
voor het gemak "fietsjes" hebben genoemd. 



De plaatsen, waar je op zo'n fietsje kunt 
stappen en er weer af, werden dus de 
"fietsenstallingen". Op de fiets zijn de 
cursortoetsen normaal te gebruiken; 
omhoog, omlaag, links, rechts. Te voet 
zijn links en rechts normaal, maar wordt 
de omhoogtoets gebruikt om voorwerpen op 
te pakken en de omlaagtoets om je naar 
boven te bewegen. Dan wordt er een soort 
bruggetje onder je "gepompt" en dat gaat 
ten koste van de middelste balk, die 
bovenin het beeld zichtbaar is. Door het 
oppakken van bepaalde voorwerpen wordt 
deze balk weer aangevuld en datzelfde 
geldt voor de balk met energie (boven) en 
de balk met wapens (onder) . Een bijzonder 
voorwerp' is de joystick in sommige velden, 
want daarmee krijg je een extra Blob en 
die heb je heel hard nodig. 

Natuurlijk kun je niet zomaar door de 
velden lopen of fietsen. In elk veld zijn 
minstens drie vijanden aanwezig om je het 
leven zuur te maken: wriemelende wezentjes 
die -zodra ze je aanraken- de energie uit 
je wegzuigen en/of een soort "vliegende 
schroeven", die bij aanraking een onmid- 
dellijke dood ten gevolge hebben. Flink 
schieten dus, maar wel je wapenvoorraad in 
de gaten houden! 

De voorwerpen voor energie e.d. kun je 
pakken door er overheen te lopen of te 
fietsen, maar er zijn nog andere voor- 
werpen, die je uitsluitend lopend kunt 
oppakken: de onderdelen voor de "planet's 
core" en een soort credit cards, die je 
nodig hebt om de beveiligde deuren mee 
door te komen. Hetzelfde geldt voor de 
sleutels, waarmee je in bepaalde velden 
kunt komen, die afgesloten zijn door een 
deur. Om je gemakkelijk van het ene eind 
van de kaart naar het andere te kunnen 
verplaatsen, zijn er in totaal 15 tele- 
ports, die allemaal verschillende namen 
hebben. Die namen ontbreken op de kaart, 
want aspirantspelers moeten nog wel iets 
zelf doen. Zo'n teleport is ook alleen 
lopend te betreden, waarna de naam wordt 
gevraagd van de bestemmingsteleport. 
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Starquake is via de sof twarewinkels op 
cassette verkrijgbaar voor slechts Fl. 
39,90 en dat is voor zo'n uitstekend spel 
een heel laag bedrag. 

Ik ben benieuwd of iemand het voor elkaar 
krijgt om het helemaal uit te spelen. Zelf 
ben ik wel bovenaan de scorelijst 
terechtgekomen met ongeveer 150.000 punten 
en een percentage van 35%, wat ik al een 
hele prestatie vind. 




Beeld * * * * * 
Geluid* * * * * 
Spelkwaliteit* * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * 

Prijs* * * * * 

***** ZEER GOED 

• *** GOED 

• ** REDELIJK 
** MATIG 

• SLECHT 


WIZARD'S LAIR 


Voor de liefhebbers van arcade adventures 
is er nog een dergelijk spel verkrijgbaar 
onder de titel "Wizard's Lair". Het idee 
is ongeveer hetzelfde, maar het tempo ligt 
aanmerkelijk hoger dan bij Starquake. Bij 
"Wizard's Lair" moet je 5 stukken van een 
gouden leeuw verzamelen, maar die hoeven 
niet naar een bepaalde lokatie gebracht te 
worden zoals bij "Starquake". 

Ook dit spel is op cassette te koop voor 
Fl. 39,90 bij de diverse sof twarezaken en 
de beoordeling is dezelfde als voor "Star- 
quake" . 



SPACE SHUTTLE 


Ik ben geen liefhebber van flight- 
simulatoren, maar dit programma was een 
prettige uitzondering en daarom ben ik 
toch maar eens in de stoel van de piloot 
gaan zitten. 

De opdracht is om de space shuttle in een 
baan om de aarde te brengen en een 
kunstmaan te lanceren. Dit kan op 3 
manieren gebeuren: 

1) Vol-automatisch. Hier gaat alles altijd 
goed. Alle fouten worden gecorrigeerd. 

2) Half-automatisch. Correcties worden wel 
gemaakt, mits er geen al te grove blunders 
worden gemaakt. Dit deel is al tamelijk 
lastig en een prima oefening voor deel 3. 

2) Handbediening. Een ramp! Alleen 
geschikt voor de fanaten van dit soort 
programma's. 

Grafisch ziet alles er aardig uit, maar de 
geluiden zijn matig. Het spel wordt 
geleverd op cassette en komt van 
Activision, dus: goede kwaliteit van de 
tape en een uitstekende handleiding (ook 
in het Nederlands). De prijs is Fl. 49,=. 

Beeld * * * * 

Geluid* * 

Spelkwaliteit* * * * 

Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * * 

Prijs* * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 
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‘ #*########***######### **## ***** 
* CALCULATOR * 

#Door: G. A. Lent i ng , Coevorden# 
#(c)1987 MSX Gids ' Amsterdam# 
#######*** #####*###**#####***** 


. _ C0L0R14, 15, 15: SCREEN2: LP*="SCTLWX 
'/.%/ — *-=R . 0 1 23456789 " : PL*= " SW74 1 0CX852 
. T7.963RL #/-+=" s R*=SPACE* < 13) +"0" 

80 SPR ITE* ( 1 ) =CHR* ( 240 ) +CHR* (192) +CH 
R$ (160) +CHR* (144) +CHR* ( 8 ) +CHR* ( 4 ) +CH 
R*(2)+CHR*d) : PI =3. 1 4 1 5926535# : DR*= " 
u7e3r 18-f 3d7g31 18h3d3-f 3r 18e3u3dlg31 18 
h3dl-f 3r 18e3” 

90 DATA 10, 5*1, 1,1,1, 10, 5, 1,1, 1 , 1, 10 
j ^ j 1? Ij I 5 1 2 , 10, 5, 5, 5, 5, 5, Si , " T " ,7,4, 
1,0, Co, "x2 ",8,5,2, , Ta ^ 9, 6 , 3, R 

? Lo , 11 # 11 , " / " 11 — 11 , ” + " ** = •» 

100 OPEN”GRP: " AS1 : LINE <63, 0) - <201 , 1 

0) , 1,BF:PSET(73,2) : C0L0R15: PRINT#1 , " 
MSX— GIDS #1986#" 

110 LINE ( 63, 10) — (201 , 190) , 1,B:LINE(7 
2, 19) -(191, 51) , 1,B: LINE (73, 20) -(190, 
40) , 3, BF: LINE <73, 40) -(190, 50) , 14.BF' 
120 FOR A=70 TO Ï70 STEP 33:FÓRB=72 
TO 172 STEP20: READ C: PRESET <A, B) : COL 
ORC: DRAW DR*: NEXT B, A 
130 FOR A=80 TO 180' STEP 33:F0RB=65 
TO 165 STEP20: READ C*: IF LEN(C*)=2 T 
HEN X=4 ELSE X=0 

140 PRESET (A-X,B) : COLOR1 : PRINT# 1 , C*: 

NEXT B, A: X=202: Y=142:M=1 

150 G* ( 1 ) =R*: G* (2) =" " : G* (3) =" " 

160 LINE (73, 20) -(190, 40) ,3,BF:LINE(7 
3, 40) -(190, 50) , 14, BF' 

170 COLOR 1 : FDR J =1 TO 3: PSET <72, 12+J 
*10) : PRINT# 1,G*(J> ;GL*(.3) : NEXT j 
180 PUTSPRITÈ 1 , (X, Y) , 6, 1 
1 90 T=ST I CK < 0 ) : R=STR I G ( 0) : P*= I NKE Y* : 
IF P*>" » THEN BEEP: GOTO 230 
200 IF T=0 AND R=0 THEN 190 
210 IF R =— 1 THEN BEEP:GOTO240 
220 A=- (T=3) + (T=7) - <T=2) + (T= 6 ) - (T=4) 
+/(T= 8 ) : B= ( T= 1 ) - (T=5) + (T=2) - (T= 6 ) - (T= 
4) +<T= 8 ) : X=X+4#A: Y=Y+4*B: GOTO 180 
230 2=INSTR ( 1 , LP*, P*) : IF Z =0 THEN 19 
0 ELSE 260 

240 IF X <66 OR X>198 OR Y<59 OR Y>17 
9 THEN 190 

250 P=INT < ( Y— 39) /20) +INT ( (X- 66 ) /33) * 

6 : P*=M I D* ( PL* , P , 1 ) : GOTO 230 

260 IF Z< 14 THEN 320 

270 IF Z=14 AND PU=1 THEN 190 

280 IF Z=14 THEN PU =1 

290 IF VAL (G* (M) ) >0 AND PU=0 OR PU=1 
THEN G* ( M ) =R I GHT * < 6* ( M ) +P* ,14) ELSE 
G$ (M) =SPACE$ (13) +P$ 

300 IF LEN(G^(M) ) >14 THEN G$(M)=R$ 
310 GOTO 160 

320 IF M= 1 AND Z >7 THEN K=Z : G (M) =VAL < 
G$(M) ) : M=M+ 1 : PU=0 : GL$ < 2 ) =P$ : G$ ( M ) =R$ 

: IF M=2 THEN 160 

330 IF M =1 AND Z<7 THEN G(1)=VAL(G$( 

1) ) :GL$(2)=P$:K=Z:GOTO400 

340 IF Z = 1 2 AND G$ (3)=" "THEN G(2)=VA 
L<G$<2) ) :G(1)=VAL(G$(1 ) ) :GOSUB530:M= 
2: GOTO 160 

350 IF Z=12 THEN G ( 2 ) =VAL (G$ (2) ) : G ( 1 
> =G ( 3 ) : G$ ( 1 ) =R I GHT* ( SP ACE* (14) +STR* ( 
G(l) ) , 14) :GOSUB530:M=2: GOTO 160 
360 IF Z= 1 3 THEN PU=0: G ( 1 ) =0: G (2) =0: 
K=0: M=1 : GL* (2) =" " : GOTO 150 
370 IF 6(1 )=0 THEN 190 ELSE G(2)=VAL 
( 6 * ( 2 ) ) 


380 IF G ( 3 ) =0 THEN GOSUB 530 ELSE G< 

2) =0: G ( 1 ) =G (3) : G* ( 1 ) =G* (3) :G*(2)=R*: 
6* (3) =SPACE* (14) : K=Z : GL* (2) =P*: M=2: P 
U=0: IFZ >6 THEN 160 ELSE M=1:GOTO320 
390 G(1)=G(3) : G* < 1 ) =6* ( 3 ) :K=Z:GL*<2) 
=P* 

400 IF K<7 THEN G (2) =0: G* (2) =SPACE* ( 
14): GOSUB530 : M=2 : PU=0 : G ( 3 ) =0 : GOTO 1 6 
0 

410 GOSUB530 : G (2) =0: G* (2) =R*: G* (3) =S 

PACE* ( 14) : M=2: PU=0: GOTO 160 

420 G (3) =SIN (G ( 1 ) / 180*PI ) : RETURN 

430 G (3) =COS (G ( 1 ) / 180*PI ) : RETURN 

440 G (3) =TAN (G(l) /180*PI) : RETURN 

450 G ( 3 ) =LOG (Gd) ) : RETURN 

460 G ( 3 ) =SQR ( G ( 1 ) ) : RETURN 

470 G (3) =G < 1 ) *G ( 1 ) : RETURN 

480 G(3)=(G(1) #6 (2) )/ 100: RETURN 

490 6(3) =G <1 ) #6 (2) : RETURN 

500 G (3) =G( 1 ) /G(2) : RETURN 

510 G (3) =G( 1 ) -G(2) : RETURN 

520 G ( 3 ) =G <1 ) +G ( 2 ) : RETURN 

530 ON K GOSUB 420,430,440,450,460,4 

70 , 480 , 490 , 500 , 5 1 0 ; 520 ' 

540 G* ( 3 ) =STR* < G < 3 ) ) : I F LEN(G*(3))>1 
4 THEN G* (3) =LEFT* (G* (3) , 14) ELSE G* 
(3) =RIGHT* (SPACE* (14) +G* (3) , 14) 

550 RETURN 
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20 - 58 
30 - 58 
40 - 58 
50 - 58 
60 - 58 
70 - 237 
80 - 56 
90 - 1B0 
100 - 21 
110 - 20 
120 - 53 
130 - 227 
140 - 54 
150 - 172 
160 - 125 
170 - 59 
180 - 103 
190 - 170 
200 - 109 
210 - 139 
220 - 190 
230 - 112 
240 - 102 
250 - 158 
260 - 123 
270 - 211 
280 - 209 
290 - 103 
300 - 41 
310 - 87 
320 - 25 
330 - 222 
340 - 247 
350 - 110 
360 - 148 
370 163 

380 - 14 
390 - 146 
400 - 137 
410 - 218 
420 - 41 
430 - 44 
440 - 45 
450 - 231 
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LEZERSONDERZOEK 

Ook dit jaar weer de resultaten van de 
enquête. Alle getallen zijn afgerond. 

0% is dus minder dan 0,5% en wil dus niet 
zeggen dat er helemaal geen reakties zijn 
geweest. Onze eerste vraag betrof de ge- 
bruikte computers en het lijstje ziet er 
als volgt uit: 

Philips VG 8230/8235 21% 


Toshiba HX10 20% 
Philips VG 8020 14% 
Goldstar FC-200 12% 
Sony HB-75 P 5% 


De rest (28%) is verdeeld over alle andere 
types en merken. Tellen we van Philips en 
Sony alleen de merknaam, dan komt Philips 
op 40% en Sony op 12%. Opvallend is het 
grote aantal inzenders met een MSX-2 
machine en duidelijk is het stunten met 
goedkope import machines te merken aan de 
tweede plaats van Toshiba. Sony (vorig 
jaar nog derde met de HB-75) verliest 
steeds meer terrein en komt met de MSX-2 
nog nauwelijks voor. Dit komt voornamelijk 
omdat deze machines steeds minder MSX- 
compatible zijn en dit (b.v. bij de 
verschillende gebruikersgroepen) steeds 
vaker te horen is. 

Dan komen we aan de vraag waarvoor de 
computer voornamelijk wordt gebruikt. 


Programmeren 91% 
Spelletjes 78% 
Zakelijk 47% 
Grafisch 30% 
Muziek 18% 


Verder worden nog educatief en tekstver- 
werking veel genoemd. Hier (en nog bij 
andere vragen) komen we boven de 100% 
omdat meerdere antwoorden mogelijk waren. 
Dit lijstje komt vrijwel overeen met dat 
van vorig jaar. 

Dan gaan we naar de talen: 


BASIC 95% 
Mach. taal 50% 
Pascal 14% 
Logo 10% 
COBOL 5% 

C 3% 


Opvallend is hier de stijgende belang- 
stelling voor machinetaal. 

De randapparatuur: 


Cass. recorder 99% 
3.5 diskdrive 43% 
5.25 diskdrive 2% 
MSX printer 30% 
T.V. 71% 
Quickdisk 4% 
andere printer 20% 
Monitor 41% 
Plotter 5% 
Modem 2% 


Vrijwel het enige grote verschil met 
verleden jaar zijn de drives, die vorig 
jaar in het lijstje nog nauwelijks 

voorkwamen. 

Dan voor de H.H. handelaren de artikelen 
die nog op de verlanglijstjes staan bij 
onze lezers: 

Diskdrive 40%, (MSX) printer 40%, Monitor 
20% en modem 15%. 

77% vindt dat er genoeg listings in het 
blad staan, 80% vindt deze goed en 20% 
redelijk. Slecht kwamen we nauwelijks 

tegen waardoor hier 0% uitkomt. 20% vindt 
dat er te weinig listings in het blad 
staan en 3% vinden het er teveel. 

40% gebruikt het controle programma, 28% 
soms en 32% helemaal niet. 

91% vindt de artikelen goed, 9% te 
moeilijk en 0% te eenvoudig. 

Dan de Top-5 van wat onze lezers het beste 
vonden in het afgelopen jaar: 

1. Cursus machinetaal. 

2. BASIC nader bekeken. 

3. BIOS call's 

4. Educatieve programma's 

5. Adventures. 

Verder werden van de programma's nog de 
kaartenbak, Wurzle en de sector copy 
genoemd. Bij 'slechtste artikel’ werd niet 
veel opgegeven. Alleen de tegenstanders 
van boekbesprekingen vallen op. 

Dan de Top-5 van wat de lezers meer in de 
MSX-Gids willen lezen: 

1. Zakelijke programma's en toepassingen 

2. Meer BASIC informatie (cursus o.i.d.) 

3. Meer educatief. 

4. Meer hardware tests 

5. Meer (serieuze) software. 

Dit gaan we dus allemaal zeker doen en in 
dit blad is al een begin gemaakt. Met de 
hardware ligt het wat moeilijk. Wij 
krijgen weinig ter beschikking, maar als 
we wat hebben -of krijgen- dat wordt het 
gepubliceerd. 

De MSX-Gids wordt gelezen door 96% mannen 
en 4% vrouwen. Minder vrouwen dan vorig 
jaar (9%). 17% is jonger dan 20 jaar, 27% 
is tussen de 20 en de 30, 32% tussen de 30 
en de 40, 15% tussen de 40 en de 50 en 9% 
ouder dan 50 jaar. 

Op enkele uitschieters na weinig veschil 
met vorig jaar. Wij gaan -met hier en daar 
wat aanpassingen - dus nog een jaartje op 
de oude voet verder. 

Alf red. 
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Listing controle programma 2 


DEZE LISTING TESTER IS VAN TOEPASSING OP 
DE LISTINGS VANAF MSX GIDS NR.3 

DE LISTINGS UIT GIDS 1 EN 2 NIET MET DEZE 
TESTER CONTROLEREN! 

De Listing tester is bedoeld als 

hulpmiddel voor de lezers, die de 
programma listings uit ons blad overnemen. 
Met dit programma publiceren wij een 
kontrole— telling van de programmaregels 
en, wanneer u een programma heeft 

overgenomen , kunt u dan -ook weer met 
ditzelfde programma- een kontrole-telling 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot, 
dat het programma goed is overgenomen. 
Zeker is dit echter niet , want wanneer 
bijvoorbeeld twee letters in een regel 
worden omgewisseld, dan is de telling toch 
goed . 

MSX-BASIC kent twee statements voor regels 
die alleen kommentaar bevatten: namelijk 
het REM-statement en regels die beginnen 
met . Beide regels hebben over het 
algemeen geen invloed op de werking van 
het programma en daarom wordt de tekst van 
deze regels niet meegeteld. Wanneer de REM 
regels wel belangrijk zijn (b.v. bij 
machinetaal routines, die tijdens de loop 
van het programma op deze regels worden 
geplaatst) dan wordt dit uitdrukkelijk 
vermeld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste programma's 
geplaatst kan worden. U toetst dit 
programma in en kontroleert het met 
zichzelf door regelnummer 65170 te laten 
vervallen. 

Is het programma goed, dan moet dit met de 
opdracht SAVE "CAS: TESTER" op cassette 
worden gezet. (Wel eerst regel 65170 weer 
opnemen ! ! ) . 

Het programma wordt dan als ASCII-file op 
de band gezet . 

Niet wegschrijven met "CSAVE"!! 

U gebruikt verder dit programma als volgt: 

U tikt het programma, dat u wilt hebben in 
en zet dit eerst op cassette. Niet eerst 
RUNen, want bij sommige fouten kan een 
programma blijven 'hangen' en vaak moet 
dan alles opnieuw worden ingevoerd! Daarna 
kan met MERGE "CAS: TESTER" het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programma's, of voor het geval dat er nog 
slechts enkele regels nagekeken hoeven te 
worden, kan het ook via het beeldscherm. 
Voor het laden van het testprogramma moet 
de instruktie 'MERGE' worden gebruikt en 
niet LOAD ! (Dus MERGE "CAS : TESTER” ) . Bij 
gebruik van LOAD komt de Listing tester 
namelijk in plaats van het reeds in het 
geheugen aanwezige programma te staan en 
dan valt er niets meer te testen. 


Let goed op bij DATA- regels. Wanneer hier 
getallen omgewisseld worden, zal de tester 
toch een goede telling geven! Bij het 
omwisselen van letters in BASIC- 
instrukties wordt wel een fout 
geconstateerd . 


Een controle 
grote -of 
geplaatst . 


telling wordt alleen bij 
ingewikkelde- programma's 


B»eld»chermi WIDTH 37 


65000 ’ **#*##########**##*#### 
65010 ’ * LISTING TESTER 2 * 
65020 * # Door Al f red Debels # 
65030 ’ * (c ) 1986 De MSX Gids * 
65040 ' # Amsterdam # 
65050 " **#*#####****########## 
65060 p 


65070 CLSsCLE AR: SCREEN 0: WIDTH 40:PRI 
NT 

65080 PRINT "Weergave via beeldscherm 
o-f printer?" 

65090 PRINT : PRINT "B o-f P?: " 

65100 X$=INKEY$:IF X$0"B" AND X$<>"P 
" THEN 65100 
65110 ST ART =327 69 ! 

65120 RG=START+ 2 : T =0 
65 1 40 VR=PEEK ( START ) +256*PEEK < START+ 1 
) 

65150 NR=PEEK<RG)+256#PEEK<RG+1> 

65160 IF VR =0 THEN 65290 
65170 IF NR >=65000! THEN 65290 
65180 S=0: FOR I=RG+2 TO VR-1 
65190 A=PEEK ( I ) 

65210 IF A=1 43 THEN I=VR:GOTO 65240 
65230 S= S+A: NEXT 
65240 S=SM0D256 
65250 T=T+S 

65260 IF X*="B" THEN PRINT USING "Reg 
el:##### - ### " 5 NR , S : GOTO 65280 
65270 LPRINT USING' "Regel : ##### - ### 
" 5 NR, S 

65280 START=VR: RG=VR+2:G0T0 65140 

AF.7P(Ji TP *<fc="P» TUPM A«=:-T1i5t 


65300 

PRINT: 1 

=>RINT " 

Totaal: ":T: END 

65310 

LPRINT 

II 

Totaal: "jT: END 


Regel : 65000 


5B 

Regel : 65260 - 

167 

Regel 

65010 

— 

58 

Regel: 65270 - 

13 

Regel 

65020 

— 

58 

Regel: 65280 - 

136 

Regel 

65030 

- 

58 

Regel : 65290 - 

239 

Regel 

65040 

— 

58 

Regel : 65300 - 

233 

Regel 

65050 

- 

58 

Regel: 65310 - 

42 

Regel 

65060 

— 

58 

Totaal : 3275 


Regel 

65070 

- 

151 



Regel 

65080 


129 



Regel 

65090 

— 

32 



Regel 

65100 


5 



Regel 

65110 

— 

23 



Regel 

65120 

— 

200 



Regel 

65140 

— 

133 



Regel 

65150 

— 

147 



Regel 

65160 

— 

132 



Regel 

65180 


201 



Regel 

65190 

— 

96 



Regel 

65210 

— 

234 



Regel 

65230 

— 

164 



Regel 

65240 

- 

173 



Regel 

65250 

— 

219 
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de mini gids 

In deze rubriek kunnen onze lezers advertenties plaatsen, 
mits niet van commerciële aard ! Handelaren kunnen onze 
advertentietarieven aanvragen. 

De redaktie behoudt zich het recht voor advertenties voor 
deze rubriek te weigeren. Inzendingen kunnen gestuurd wor- 
den naar Postbus 10252, 1001 EG Amsterdam en dienen 
voorzien te zijn van naam, adres en evt. telefoonnummer. 
Advertenties met alleen postbusnummer of antwoordnummer 
worden niet opgenomen. 


AANGEBODEN z 


Toshiba MSX computer + datarecorder + SVI 
joystick + boeken + software (met garan- 
tie) . Z/w Philips TV, te gebruiken als 
monitor. Samen in 1 koop Fl. 500,=. 

Grundig KTV (37 cm.) te gebruiken als 
monitor (met garantie) Fl. 550,= 

Tel. 01740-26622 

Diverse originele MSX games te koop (op 
cassette) v.a. Fl. 7,50 (o.a. Space 
Rescue, Kick It, Snale It, Bounder, 
Pyramid Warp, Hopper, Beamrider) . Verder 2 
modules: Monkey Academy Fl. 35,= en Yie Ar 
Kung Fu II Fl. 45,=. Boudewijn Norbruis, 
Tel: 05130-22606 na 18.00 uur. 

Spectra Video 738 X' Press, ingebouwde 
diskdrive 3.5, Centronics, RS232 met 
MSX- DOS, MSX DISK-BASIC, CP/M 2.2, 
handboeken, software, draagtas en Philips 
monitor BM 7502 80 (groen). J.v. Beurden, 
Lavendeltuin 25, 2724 PD Zoetermeer. Tel. 
079-416904. 

Quickdisk QDM-01 ideaal voor beginners. 
Inclusief adapter, Ned. handleiding en 
software op 5 diskettes. Fl. 350,= 

Tel. 070-972678 na 18.00 uur. 

Te koop of te ruil: Beehive Terminal met 
los keyboard en monitor, niet 100% in 
orde. Philips MSX Dieetprogramma en 
Mirrorsoft 737 Flightsimulator (beide 
origineel). Tevens gevraagd programma's 
voor de IBM-pc. R. Walbeek, tel. 04132 - 
64900 alleen weekends. 

Originele MSX games op cassettes (32 
spellen op 11 cassettes) . O.a. Compilation 
tape 3, Game pack 1 & 2, Oh Shit, Zakil 
Wood en twee boeken: Miraculeuze spelen en 
BASIC programma's voor MSX. In één koop 
Fl. 55,=. Tel. 040-456204 


GEVRAAGD z 


De nummers 1 t/m 3 van de MSX-gids of de 
listings van de programma's uit die 
nummers. A.Hoogenboom, Ormelingstraat 5, 
5317 JB Nederhemert. Tel. 04185-256 

Uit nr.3 van de MSX-Gids, deel 1 van de 
cursus Machinetaal. Evt. tegen vergoeding. 
H.J. Wassink, Hagemanswei 85, 6843 XM 
Arnhem. Tel. 085-817335 


RUIDEN z 


Originele MSX-1 en 2 software te ruil. 
O.a. Wordstar, Aackotext, Musix, Topogra- 
fie (Ned. Eur. Wereld), Mouser. 

Tel. 01869-1221 (vragen naar Peter). 

Te ruil, MSX programma’s. Graag met iemand 
van jongere leeftijd (12 a 13 jaar) in de 
omgeving Doetinchem. Tino Kraan, Borneo- 
straat 7, 7009 ER Doetinchem. Tel: 
08340-26812. 

MSX software (spelletjes, Utilities en 
educatief) tegen dito. Tel. 076-416209 

MSX spelletjes op cassette. Roy 
Kouwenberg, Salvador Allendestraat 32, 
2552 ND Den Haag. Tel. 070-970179. 

Gevraagd modules van Konami om te ruilen 
tegen ca. 20 spellen op cassette. 

Tel. 04494-46718 na 19.00 uur. Vragen naar 
Thijs. 

Ruilen of te koop div. MSX-2 en MSX-1 
software. Tel. 01184-64428 na 18.00 uur. 

MSX-ers om software mee te ruilen (op 
tape). Stuur jouw lijst naar: Wim Landman, 
Mezenweg 30, 8191 BD Wapenveld. 

Gezocht MSX-ers om software mee te ruilen. 
Patrick Teluy, Drie Decembersingel 235, 
5921 AB Blerick. Tel. 077-826638 


DIVERSEN z 

Er is een nieuwe MSX gebruikersgroep in 
Zeeuws-Vlaanderen. Het is de bedoeling van 
deze groep te helpen met programmeer 
problemen, een Databank op te richten, 
gezamenlijk cursussen te volgen in eigen 
lokaal en diverse andere activiteiten te 
ontwikkelen. Inlichtingen: MSX Gebruikers 
Groep, Gouwestraat 82, 4535 CT Terneuzen. 
Tel. 01150-30189. Ook te bereiken via: 

Vidibusnummer 400028486 
Happytel nr. 6003 
Hobbytel nr. 64444 


De Tilburgse MSX-gebruikersgroep heeft 
inmiddels ruim 100 leden en een eigen blad 
met de naam GRAPHIX. Kontaktadres: 
Sekretariaat Tilburgse MSX-gebruikersgroep 
C.Lips, Perosihof 626, 5049 LS Tilburg. 


OUDE NUMMERS MSX GIDS 

De nummers 1 t/m 5 van de MSX-Gids zijn 
GEHEEL UITVERKOCHT. Nieuwere nummers zijn 
nog slechts BEPERKT leverbaar. Neem, voor 
bestellingen van oude nummers, eerst 
telefonisch kontakt op met de uitgeverij . 
020-327464 (tussen 12.00 en 18.00 uur). 
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